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

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

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

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

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2018-8-13 11:32 | 顯示全部帖子

Sub Project1_Click()
Dim rTar As Range, r&
r = Cells(Rows.Count, 1).End(3).Row
If Not r = 1 Then r = r + 1
Randomize
For Each rTar In Cells(r, 1).Resize(7)
rTar = Int((21 - 1) * Rnd + 1) * 0.01
Next
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。

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