با درود مجدد
و اما را بعدی که تو بخشی که اگر سل هامون فرمولی هم باشن مشکلی رو بوجود نمیاره با VBA هستش
کد:
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "ExcelIran"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
k = UBound(Arr, 1)
For i = 1 To UBound(Arr, 1) / 2
xTemp = Arr(i, j)
Arr(i, j) = Arr(k, j)
Arr(k, j) = xTemp
k = k - 1
Next
Next
WorkRng.Formula = Arr
این کد رو برای مثلا یه Button بنویسین و اجرا کنید . هنگامی که پنجره application.inputbox که از نوع Selection هستش باز شد محدودتونو انتخاب کنید و اکی کنید . برای فرمول هم امتحان کنید جالبه .
شب خوش . شبتون شیک و مجلسی
هزار و یک شب اکسل - شب چهل و چهارم نمایش یک ستون از انتها به ابتدا با فرمول Flipping a List
پاسخ با نقل قول
نوشته اصلی توسط امين اسماعيلي
علاقه مندی ها (Bookmarks)