我想以“I”列的格式創建一個動態編號串列，它將由 B1 和 B2 中的值生成：
羅馬數字和阿拉伯數字應該是動態的，基于 B1 和 B2 中的單元格值。我已經嘗試過 VBA，但我無法計算出 for 回圈來生成正確的結果。另外我不確定如何實作羅馬數字。到目前為止，這是我的代碼：
Private Sub CommandButton1_Click()
Dim Roman_Number As Integer
Dim Arabic_Number As Integer
Roman_Number = Range("B1").Value
Arabic_Number = Range("B2").Value
For i = 0 To (Roman_Number - 1)
Cells(i 1, 5).Value = "I" & "-" & (i 1)
Next i
End Sub
非常感謝您！
uj5u.com熱心網友回復：
或者，如果您有 Excel 365，則可以使用公式：
=LET(cntArabic,B2,
cntRoman,B1,
s,SEQUENCE(cntArabic*cntRoman),
MAKEARRAY(ROWS(s),1,LAMBDA(r,c,
ROMAN(ROUNDUP(r/cntRoman,0)) & "-" &
IF(MOD(r,cntRoman)=0,cntRoman,MOD(r,cntRoman))
)))
uj5u.com熱心網友回復：
你把羅馬語和阿拉伯語混在一起了嗎？無論如何，如果你對公式沒問題：
中的公式D1：
=TOCOL(ROMAN(SEQUENCE(B1))&"-"&SEQUENCE(1,B2))
uj5u.com熱心網友回復：
有一個作業表函式可以生成羅馬數字，您將需要嵌套回圈，因此代碼應如下所示：
Option Explicit
Sub Button1_Click()
Dim Roman_Number As Integer
Dim Arabic_Number As Integer
Dim row As Integer
Dim i As Integer
Dim j As Integer
Roman_Number = Range("B1").Value
Arabic_Number = Range("B2").Value
row = 1
For i = 1 To Roman_Number
For j = 1 To Arabic_Number
Cells(row, 5).Value = WorksheetFunction.Roman(i) & "-" & j
row = row 1
Next j
Next i
End Sub
只要數字不太大，整數就可以。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/514486.html
標籤：擅长vba
上一篇：您如何參考VBA中的作業表串列？