Excel VBA 質問スレ Part51

Excel VBA 質問スレ P ..

348:デフォルトの名無しさん
17/12/04 03:24:02.05 oPXdl+lm0.net
4)入力実行部
Sub Popup_Input(strMst As String, strAns As String)
　Dim rngR1 As Range: Set rngR1 = Range("A2")
　Dim rngR2 As Range: Set rngR2 = Range("B2")
　Dim rngR3 As Range: Set rngR3 = Range("C2")
　
　Dim rngMst As Range: Set rngMst = Range(strMst)
　Dim i As Long, j As Long, k As Long
　
　i = Split(strAns, "|")(0)
　j = Split(strAns, "|")(1)
　k = Split(strAns, "|")(2)
　
　rngR1.Value = rngMst(i + 1, 1).Value
　rngR2.Value = rngMst(j + 1, 2).Value
　rngR3.Value = rngMst(k + 1, 3).Value
End Sub

次ページ

続きを表示

1を表示