EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Custom BBcode
! | หมายเหตุ:
|
snasui wrote: ตอน Post Reply คลิกปุ่ม warning ครับ
Code: Select all
SubSub test0()
Dim r As Range
Dim i As Integer
i = 3
For Each r In Selection
If r.HasArray Then
Range("af" & i).Value = r.Address(0, 0) & _
" คีย์สูตร " & "[font=consolas]" & r.Formula & "[/font] Ctrl+Shift+Enter"
Else
Range("af" & i).Value = r.Address(0, 0) & _
" คีย์สูตร " & "[font=consolas]" & r.Formula & "[/font] Enter"
End If
i = i + 1
Next r
End Sub