تکرار کلمه بر اساس عدد مشخص

[saed.rasa]

سلام

حروف انگلیسی ده تای اول را در ستون b وارد کردایم (a;b;c;d;...)
اگر G1=3 بود 3 تای اول بیاد و 3 بار تکرار شود یعنی تعداد 9 تا
اگر G1=4 بود 4 تای اول 4 بار تکرار شود یعنی تعداد 16 تا
و ...

خیلی ممنون

[generalsamad]

با سلام
این فرمول رو بررسی نمائید


=index(b:b;int((row(a1)-1)/g$1)+1)

[generalsamad]

طبق توضیحاتی که داده بودید از فرمول بالا استفاده کنید
ولی طبق فایلی که پیوست کردید از این فرمول استفاده کنید


=iferror(index(b$2:b$11;int((row(a1)-1)/e$2)+1);"")

[generalsamad]

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


=offset($b$1;(int(row(a1)-1)/$e$2)+1;;)

[saed.rasa]

سلام

ضمن تشکر فراوان ، متاسفانه جواب آن نبود به دلیل اینکه من فایل پیوست را یادم رفته بودم قرار بدهم که الان موجود است و با نمونه مثال

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



Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim LR, i As Long


LR = Cells(Rows.Count, 2).End(xlUp).Row


For i = 2 To LR


If Range("B" & i) = "فروش" Then


Range("C" & i) = -1 * Abs(Range("C" & i))


Else


Range("C" & i) = Abs(Range("C" & i))


End If


Next i


End Sub

[saed.rasa]

سلام

دستت درد نکنه جواب دادید ولی به نظر می آید جواب مورد نظر درست نیست چرا که هر سه فرمول ارائه شده درای جواب یکسان می باشد
جواب های شما a-a-a b-b-b c-c-c نمونه مثال a-b-c a-b-c a-b-c

[generalsamad]

با سلام
این فرمول رو بررسی نمائید


=IF(AND(ROW(A1)<=E$2^2;MOD(ROW(A1);E$2)=0);INDIRECT("B"&E$2+1);IF(ROW(A1)<=E$2^2;INDIRECT("B"&MOD(ROW(A1);E$2)+1);""))


در مورد سوالی که در مورد کد vba فرمودید چون کدهایی که نوشتم برای رویداد change بوده و زمانی کد عمل خواهد کرد که عملکرد change رخ دهد
اگه کد بهتری برای حل این مشکل نوشتم قرار خواهم داد

[saed.rasa]

سلام

همیشه کارتون عالیه! مرسی

فرمول های قبلی شما بجای int از mod استفاده کردم کارم حل شد

کد vba سوال قبلی هم خوبه! تنبل نیستم ی جایی کلیک می کنم زیاد مهم نیست

بهرحال متشکرم