VBA 運算後自動換行 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » VBA 運算後自動換行

返回列表下一主題上一主題發帖

[發問] VBA 運算後自動換行

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 2
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2026-6-21

1^# 跳轉到 »

發表於 2018-8-13 09:44 | 顯示全部帖子

回復 1# PaulDing

參考看看

Sub Project1_Click()
Dim rTar As Range
Randomize
For Each rTar In Range("A1:A7").Offset(IIf(Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row = 1, IIf(Cells(1, 1) = "", 0, 1), Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row))
rTar = Int((21 - 1) * Rnd + 1) * 0.01
Next
End Sub

複製代碼

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題