آخرین ارسالها

صفحه: [1] 2 3 ... 10
1
انجمن برنامه نویسی Excel / پاسخ : نمایش مشخصات فاکتور
« آخرين ارسال توسط majid_mx4 امروز ساعت 20:39:06 »
با سلام

دستورات زیر را به فایل خود اضافه کنید.

Private Sub Name_AM1_Change()
If Name_AM1 = "" Then
Factor = ""
End If
On Error Resume Next
 Factor = Application.WorksheetFunction.CountIf(Sheet1.Range("B:B"), Name_AM1)
Jame_Kol = Application.WorksheetFunction.SumIf(Sheet1.Range("B:B"), Name_AM1, Sheet1.Range("C:C"))
 
End Sub
موفق باشید میر
2
انجمن برنامه نویسی Excel / نمایش مشخصات فاکتور
« آخرين ارسال توسط saeid49 دیروز ساعت 19:56:06 »
با سلام
برای  فایل پیوستی میخواستم امکاناتی را در فرم  ایجاد کنم
1- جمع کلی  فروش  و تعداد فاکتورهای  صادره در  تکس باکس مشخص شود
2- در لیست باکس  زیر فاکتورهای صادر  شده برای خریدار مشخص  شده در کمبو باکس  مشخص  شود

با تشکر از راهنمایی
3
انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : تعریف متغیر
« آخرين ارسال توسط majid_mx4 دیروز ساعت 10:35:03 »
با سلام

لطفا فایل ضمیمه را بررسی نمایید.



موفق باشید میر
4
انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : تعریف متغیر
« آخرين ارسال توسط d349 30 دی 1399 - 14:04 »
باسلام

میتوانید بشکل زیر تغییر دهید.

Dim n, w As Integer
n = 2
Dim q As String
Dim y As Integer
For w = 1 To 66 Step 2
q = "HTMLText" & w
'y = q
Dim HTMLText As String

Range("g" & n) = q


n = n + 1
Next

پایدار باشید میر
باسلام
 و تشکر از توجه شما فایل رو بررسی کیند ممنون می شم
5
انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : تعریف متغیر
« آخرين ارسال توسط majid_mx4 30 دی 1399 - 06:15 »
باسلام

میتوانید بشکل زیر تغییر دهید.

Dim n, w As Integer
n = 2
Dim q As String
Dim y As Integer
For w = 1 To 66 Step 2
q = "HTMLText" & w
'y = q
Dim HTMLText As String

Range("g" & n) = q


n = n + 1
Next

پایدار باشید میر
6
انجمن عمومی Excel ، ابزارهای اکسل / تعریف متغیر
« آخرين ارسال توسط d349 29 دی 1399 - 20:53 »
باسلام در کد ذیل اگر خواسته باشیم Dim n, w As Integer
n = 2
Dim q As String
Dim y As Integer
For w = 1 To 66 Step 2
q = "HTMLText" & w
'y = q
Dim HTMLText As String

Range("g" & n) = HTMLText3'اگر خواسته باشیم بجای عدد 3 متغیری را تعریف کنیم به چه صورت باید متغییر را تعریف کنیم'
n = n + 1
Next
End Sub
باتشکر
7
با سلام خدمت اساتید عزیز
من یک شیت دارم که روزانه نوشته میشود مثل خرید و فروش از افراد مختلف میخواهم که ضمن نوشته شدن در شیت روزانه در شیتهای خودشان هم خودکار نوشته شود.
با تشکر از راهنماییتان
8
سلام. منم این سؤال رو دارم. جواب شما رو امتحان کردم اما ظاهرن خوب متوجه نشدم راهنمایی میکنید؟
9
با سلام

خدمت شما

Sub Copy_mir()
Dim Lastrow As Long
Lastrow = Sheet1.Cells(Rows.Count, "B").End(3).Row
Lastrow2 = Sheet2.Cells(Rows.Count, "a").End(3).Row + 1
Sheet2.Range("a2:L" & Lastrow).Delete

B = 2
For Each Cell In Sheet1.Range("B1:B" & Lastrow)
    If Cell.Offset(0, 73) = 1 Then
        Sheet1.Range("b" & Cell.Row).Copy Sheet2.Range("a" & B)
    B = B + 1
End If
Next
End Sub


پایدار باشید میر
بااجازه استادگرامی جناب آقای میر
انتقال موردنظر بدون کد vba بررسی فرمایید
10
با سلام
امروز یک نرم افزار حسابداری به نام پیشگام معرفی می کنم که برای بحث حسابداری بازرگانی و فروشگاهی مورد استفاده قرار میگیرد.
در این نرم افزار سعی شده از آخرین تکنولوژی ها استفاده بشه و از لحاظ امکانات یک نرم افزار نسبتا کامل به حساب میاد.
آدرس سایت این نرم افزار به صورت زیر است:
http://www.pishgamac.ir
دوستان، نظرات و پیشنهادات خود را ارسال کنید.
صفحه: [1] 2 3 ... 10