فیلتر وضعیت سؤال
برو به
به پشتیبانی نیاز داری؟
در صورتی که
- در کار با بتازون مشکلی دارید
- در مورد خدمات بتازون سؤالی دارید
- نظراتی را برای ارتقا و بهبود خدمات دارید
خوشحال میشیم که حتماً با ما در میان بزارید
سؤالات مربوط به VBA در اکسل
ابزار Goal Seek در VBA
1 ماه پیش توسط رضا معدن نژاد پرسیده شد
سلام وقت بخیر
لیست حقوق و دستمزدی از پرسنل دارم که میخوام خالص پرداختی رو به مبلغ قرارداد برسونم اینکار رو با Goal Seek انجام میدم از اونجایی که تعداد نفرات زیاد هستن نمیشه نفر به نفر اینکار رو انجام داد. حالا میخوام بدونم چه کدی داخل VBA نوشته بشه که این عملیات تکرار بشه تا آخرین نفر لیست
آخرین پاسخ: 1 ماه پیش توسط علی محمد یاوری
حذف محدوده با vba
1 ماه پیش توسط مهدیه مهدیه پرسیده شد
با عرض سلام و وقت بخیر خدمت اساتید محترم:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در یک سلول مشخص و ثابت مثلآ a5 زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba . راه حلش چیه؟
در صورت امکان راهنمایی بفرمایید
آخرین پاسخ: 1 ماه پیش توسط علی محمد یاوری
وقتی روی msgbox کلیک می کنم فارسی را نمیشناسد
1 ماه پیش توسط حسین پیشان پرسیده شد
سلام
وقتی دستور msgbox را می نویسم و در سلولی کلمه فارسی تایپ می شود و به آن کلمه فارسی رفرنس داده میشود مسیج باکس علامت سوال به جای حروف فارسی نشان می دهد ولی با حروف انگلیسی مشکلی ندارد
ممنون از زحمات شما
آخرین پاسخ: 1 ماه پیش توسط علی محمد یاوری
محدودیت در سلول ها
2 ماه پیش توسط حمید قاسمی پرسیده شد
توی اکسل میشه کاری انجام داد ک کاربر فقط یکبار بتونه توی یه سلول یه عدد وارد کنه اگه بخاد عدد رو تغییر بده پیغام خطایی بده
آخرین پاسخ: 2 ماه پیش توسط علی محمد یاوری
آدرس دهی به فایل دیگر در محیط vba
2 ماه پیش توسط اشکان طاهری پرسیده شد
با سلام
من یه یوزر فرم یا همون باکس جستجو در اکسل طراحی کردم که داخل یک جدول سرچ را انجام میده
حالا سوالی که دارم میخوام این جستجو را از یه فایل اکسل دیگه انجام بده آیا امکانش هست؟
آخرین پاسخ: 2 ماه پیش توسط علی محمد یاوری
انتقال اطلاعات درون سلول و آدرس سلول و کد رنگ سلول های رنگی به یک شیت دیگر
2 ماه پیش توسط مهرداد پورقاسم پرسیده شد
حل شده
2پاسخ
سلام.
یه سوال داشتم!
دو تاشیت داریم. در شیت اول در محدوده a2:az1000 دیتایی داریم که بعضی از سلول ها با رنگ های مختلف هایلایت شده اند.
میخواهم سلول هایی که در این دیتا هایلایت هستند:
اطلاعات درون سلول. آدرس آن سلول ها و کدرنگ پس زمینه آن سلولها در یک شیت دیگر و در سه ستون مجزا و زیر هم نمایش داده شود.
آخرین پاسخ: 2 ماه پیش توسط مهرداد پورقاسم
انتقال اطلاعات از شیت مبدا به شیتهای مقصد در ردیف زوج و فرد
2 ماه پیش توسط تداعی کامیاب پرسیده شد
لام و وقت بخیر
بر اساس دو شرط در دو سلول اطلاعات product1 و farm 1 میخوام در ردیف زوج در شیت مقصد و در صورتی که product 2 و farm 2 باشه در ردیف خالی فرد شیت مقصد درج بشه
زمانی که prodcuct2 و farm2 یا زمانی که procuct2,و farm1 انتخاب میشه موقع اجرا کد ارور 400 میده
ممنون میشم راهنمایی بفرمایین
یکی از کاربران زحمت کشیدن یه جوابی چند روز پیش به این سوالم دادن ولی مشکلم حل نشد و مجدا این سوال مطرح کردم و نمونه فایل هم ضمیمه کردم
آخرین پاسخ: 2 ماه پیش توسط علی محمد یاوری
ثبت اطلاعات در شیت مقصد بر اساس شروط تعیین شده
2 ماه پیش توسط تداعی کامیاب پرسیده شد
حل شده
1پاسخ
سلام و وقت بخیر
بر اساس دو شرط در دو سلول اطلاعات product1 و farm 1 میخوام در ردیف زوج در شیت مقصد و در صورتی که product 2 و farm 2 باشه در ردیف خالی فرد شیت مقصد درج بشه
این فرمول در قسمت دوم عمل نمیکنه
ممنون میشم راهنمایی بفرمایین
Option Explicit
Sub Button_Click()
Dim source As Worksheet
Dim destination As Worksheet
Dim a As Integer
Dim j As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Sheet2.Cells(2, 1) = "product1" And Sheet2.Range("a1") = "farm1" Then
Set source = Worksheets("sheet2")
Set destination = Worksheets("sheet4")
a = 1
Do Until Sheet4.Cells(a, 2) = "" And a Mod 2 <> 0
a = a + 1
Loop
For j = 2 To 91
Sheet4.Cells(a, j) = Sheet2.Cells(2, j)
Next j
ElseIf Sheet2.Cells(2, 1) = "product2" And Sheet2.Range("a1") = "farm1" Then
Set source = Worksheets("sheet2")
Set destination = Worksheets("sheet4")
Do Until Sheet4.Cells(a, 2) = "" And a Mod 2 = 0
a = a + 1
Loop
For j = 2 To 91
Sheet4.Cells(a, j) = Sheet2.Cells(2, j)
Next j
End If
If Sheet2.Cells(2, 1) = "product1" And Sheet2.Range("a1") = "farm2" Then
Set source = Worksheets("sheet2")
Set destination = Worksheets("sheet1")
a = 1
Do Until Sheet1.Cells(a, 2) = "" And a Mod 2 <> 0
a = a + 1
Loop
For j = 2 To 91
Sheet1.Cells(a, j) = Sheet2.Cells(2, j)
Next j
ElseIf Sheet2.Cells(2, 1) = "product2" And Sheet2.Range("a1") = "farm2" Then
Set source = Worksheets("sheet2")
Set destination = Worksheets("sheet1")
Do Until Sheet1.Cells(a, 2) = "" And a Mod 2 = 0
a = a + 1
Loop
For j = 2 To 91
Sheet1.Cells(a, j) = Sheet2.Cells(2, j)
Next j
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
آخرین پاسخ: 2 ماه پیش توسط علی محمد یاوری
پیدا کردن تعداد ردیف داده در شیت
3 ماه پیش توسط آزیتا رمضانی پرسیده شد
حل شده
4پاسخ
سلام، من میخوام با VBA و فرم اطلاعات داده در اکسل ذخیره کنم. چطوری بفهمم در شیت داده هام چند ردیف پر شده تا داده جدید رو بعد اون ثبت کنم؟
ممنون
آخرین پاسخ: 3 ماه پیش توسط آزیتا رمضانی