فیلتر وضعیت سؤال

برو به

به پشتیبانی نیاز داری؟

در صورتی که

  • در کار با بتازون مشکلی دارید
  • در مورد خدمات بتازون سؤالی دارید
  • نظراتی را برای ارتقا و بهبود خدمات دارید

خوشحال میشیم که حتماً با ما در میان بزارید

سؤالات مربوط به VBA در اکسل

تابع sum در vba

11 ماه پیش توسط علی صالحی پرسیده شد

سوالم را داخل عکس گذاشتم. کاربرد ونقطه :

مثلا رنج a1 تا a5را با : تعیین میکنیم

ولی من با توجه به حلقه ای تعریف کردم مجبورم یکی از سلولها را با رنج یکی از سلولها را با سلز بنویسم که دیگر : جواب نمیدهد

اولین نفری باشید که به این سؤال پاسخ می‌دهد

سلام وقت بخیر، در صورت امکان می خواستم کدی بنویسم که با انتخاب دکمه، اطلاعات داخل محدوده مشخص شده g8 به یک فایل word انتقال پیدا کند

اولین نفری باشید که به این سؤال پاسخ می‌دهد

تبدیل جدول به pdf

1 سال پیش توسط رضا صالحی پرسیده شد

سلام چگونه جدولی که در UserForm1-Frame1 طراحی شده را به pdf تبدیل کنم

اولین نفری باشید که به این سؤال پاسخ می‌دهد

انتقال محتوای متغیر

1 سال پیش توسط سروش فتحی پرسیده شد

سلام وقت بخیر

ضمن تشکر،من چند تابع مختلف برای یک برنامه تعریف کردم که داخل برنامه اصلی از اونا استفاده کنم

چطور میتونم یک متغیر با همون مقدار نهایی تاب خودش از داخل این تابع در تابع دیگر یا حتی برنامه اصلی استفاده کرد.

مثلا تابع زیر در نظر بگیرید میخام مقدار نهایی پارامتر i در تابع اصلی استفاده شودe

as boolean ( byval a as integer)

function f

for i = 2 to 100

then f=true:exit function if 1=a/i

next i

اولین نفری باشید که به این سؤال پاسخ می‌دهد

تابع سام به وسیله VBA

1 سال پیش توسط صابر صابر پرسیده شد

سلام دوستان ..... اصل سوال اینه که میخوام تابع sum در یک سلول قرار داده بشه و سلول های در ستون مجاور را به صورت داینامیک تشخیص بده و جمع بزنه

یک فایل نمونه قرار میدم ... در فایل با کلیک روی ثبت و جدید ماکرو اجرا میشه و فاکتور ثبت میشه در شیت یک میخوام قیمت محصولات مربوط به هر فاکتور به صورت داینامیک جمع بشن.... یعنی قیمت هایی که در ستون 14 هست مربوط به هر فاکتور در ستون 15 جمع بشه و قرار بگیره

امیدوارم بتونم محبت شما را جبران کنم

آخرین پاسخ: 1 سال پیش توسط صابر صابر

با سلام
من یه کد ماکرو نویسی کردم ، توی سیستم خودم اجرا میشه بدون خطا، اما در سیستم های دیگه اجرا نمیشه ایراد کد من چیه ممنون میشم بهم جواب بدین
کدمن:
Sub Macro9()

'

' Macro9 Macro

'

'

Range("G6").Select

Sheets("database").Select

Range("A1:P1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$P$1000000").AutoFilter Field:=16, Criteria1:="51"

Columns("A:P").Select

Selection.Copy

Sheets("outputmashmul51").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

''Range("Q2").Select

''Application.CutCopyMode = False

''Selection.AutoFill Destination:=Range("Q2:Q508")

''Range("Q2:Q508").Select

Dim numRows As Long

numRows = Cells(Rows.Count, 1).End(xlUp).Row

Range("Q2").Select

Application.CutCopyMode = False

Selection.AutoFill Destination:=Range("Q2:Q" & numRows)

Range("A1:Q1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=17, Criteria1:= _

"گردش حساب و محاسبه پرونده اخذ گردد"

Columns("A:A").EntireColumn.AutoFit

Sheets("baresi").Select

Range("G6").Select

End Sub

آخرین پاسخ: 1 سال پیش توسط علی محمد یاوری

حل شده

10پاسخ

با سلام

چگونه برای درگ کردن یک سلول در ستون متغیر(اتوفیل متغیر) در ماکرو ایجاد بکنیم
شرح سوال اینه :

در کدماکرو زیر
Range("F4:F5").Select

Sheets("nezarat").Select

Columns("A:P").Select

Selection.Copy

Sheets("output1").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Columns("F:I").Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Rows("1:1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$P$1817").AutoFilter Field:=11, Criteria1:="2"

ActiveSheet.Range("$A$1:$P$1817").AutoFilter Field:=7, Criteria1:= _

"=گروه چهارم"

ActiveWorkbook.Worksheets("output1").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("output1").AutoFilter.Sort.SortFields.Add Key:= _

Range("I1:I1817"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _

:=xlSortNormal

With ActiveWorkbook.Worksheets("output2").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("I4").Select

Sheets("NEZARATT").Select

Range("F4:F5").Select

Sheets("nezarat").Select

Range("B5").Select

در کدهای فوق که بولد کردم و زیر آن خط کشیدم بازه های من متغیر است ممکن است در دیتا بیسی 100000 ردیف باشه و در دیتا بیس دیگری کمتر یا بیشتر
چطوری و با چه کدی این مشکل رو حل کنم هم در قسمت فیلتر کردن و هم در قسمت اتو فیل کردن من این مشکل رو دارم
ممنون میشم کامل توضیح بدین.

آخرین پاسخ: 1 سال پیش توسط محسن دستگردی

باسلام

یوزر فرمی طراحی شده و یکسری اطلاعات داره توی فرم وارده میشه و سپس از طریق کلید ثبت اطلاعات توی جدول اکسل ثبت میشه

توی یوزر فرم 4 تا خط تولید وجود داره و اطلاعات روزانه پر میشه. مشکل اینجاست که اگر کاربر اطلاعات تکراری مثلا برای خط تولید شماره 1 در تاریخ های یکسان 2 بار وارد کنه. اطلاعات ثبت میشه. خواستم راهنمایی بفرمایید این مشکل رو چطوری میتونم حل کنم

آخرین پاسخ: 1 سال پیش توسط علی محمد یاوری

ابزار Goal Seek در VBA

1 سال پیش توسط رضا معدن نژاد پرسیده شد

سلام وقت بخیر

لیست حقوق و دستمزدی از پرسنل دارم که میخوام خالص پرداختی رو به مبلغ قرارداد برسونم اینکار رو با Goal Seek انجام میدم از اونجایی که تعداد نفرات زیاد هستن نمیشه نفر به نفر اینکار رو انجام داد. حالا میخوام بدونم چه کدی داخل VBA نوشته بشه که این عملیات تکرار بشه تا آخرین نفر لیست

آخرین پاسخ: 1 سال پیش توسط علی محمد یاوری

حذف محدوده با vba

1 سال پیش توسط مهدیه مهدیه پرسیده شد

با عرض سلام و وقت بخیر خدمت اساتید محترم:

در یک فایل اکسل که یک سری مشخصات وارد شده باشد از محدوده b3تا j3 و ادامه دار هستش و همچنین b3 به پایین مختص شماره ردیف می باشد. اگر بخواهیم در یک سلول مشخص و ثابت مثلآ a5 زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر از b تا j حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba . راه حلش چیه؟

در صورت امکان راهنمایی بفرمایید

آخرین پاسخ: 1 سال پیش توسط علی محمد یاوری

درباره ما

بتازون یک سایت نیست، یک خانواده است. یک محل برای همه ما، محلی که به هم کمک کنیم و با هم پیشرفت کنیم. این که الآن اینجایی اتفاقی نیست، خوشحالیم که بهمون ملحق شدی...