ทดสอบ BBCode
Posted: Thu Feb 07, 2013 8:38 pm
ทดสอบการใช้งาน
Custom BBcode! | หมายเหตุ:
|
ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
https://snasui.com/
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