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

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

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

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

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

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

سلام وقت بخیر

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

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

مثلا تابع زیر در نظر بگیرید میخام مقدار نهایی پارامتر 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

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

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

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

با سلام
من یه کد ماکرو نویسی کردم ، توی سیستم خودم اجرا میشه بدون خطا، اما در سیستم های دیگه اجرا نمیشه ایراد کد من چیه ممنون میشم بهم جواب بدین
کدمن:
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

با سلام

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

در کدماکرو زیر
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 ردیف باشه و در دیتا بیس دیگری کمتر یا بیشتر
چطوری و با چه کدی این مشکل رو حل کنم هم در قسمت فیلتر کردن و هم در قسمت اتو فیل کردن من این مشکل رو دارم
ممنون میشم کامل توضیح بدین.

باسلام

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

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

سلام وقت بخیر

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

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

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

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