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

[امروز]

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

انجمن توابع Excel ، فرمول نویسی Excel / نوشتن در یک شیت و نوشته شدن اتوماتیک در شیتهای دیگر

« آخرين ارسال توسط masuod 27 دی 1399 - 22:43 »

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

8

انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : شيت هاي همانند در اكسل

« آخرين ارسال توسط peikfast 26 دی 1399 - 12:22 »

سلام. منم این سؤال رو دارم. جواب شما رو امتحان کردم اما ظاهرن خوب متوجه نشدم راهنمایی میکنید؟

9

انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : انتقال کامل یک ردیف به شیت دیگر

« آخرين ارسال توسط d349 23 دی 1399 - 19:14 »

با سلام

خدمت شما

کد: [انتخاب]

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

انجمن عمومی Excel ، ابزارهای اکسل / پاسخ : ایجاد فایل اکسل به صورت صفحه وب

« آخرين ارسال توسط pishgamac 21 دی 1399 - 21:46 »

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