Modulol - 1
0ption Explicit
Sub戻り値のマクロ0
Dim a As Strlng
Dim i As lnteger 'ループカウンタ(Sheetlの行数を指す)
For i = 2 To 6
'A列とSheetlのB列をかけて、SheetlのC列で割った値をSheetlのD列に入れる
Sheets(″Sheet3″).Range(″B″ & i).Value = TEST2(Sheets(rsheet3″)f Range(″A″ & i).Value)
Next i
End Sub
Fサliti♀llTi:T〔`1:Al:も,ξl:tring) As Long
Dim : As Long
i=2
Do While Sheets(″Sheet4″).Range(″A″ & i) く〉 ″″
if ATA12 〓 Sheets(″Sheet4″).Range(″A″ & i).Value Then
TEST2 = TEST2 + Sheets(″Sheet4″).Range(″B″ & i).Value
End lf
i=i+1
Loop
End Function
Sub TESTl()
'TEST2を呼んで結果を受け取りたい
Dim変数As Long
変数=1
Call TEST3(変数)
MSgBOX変数
End Sub
Pi:き♀lλ、首蹂懇洒警垢習与甥歩習じ_ジャ
'★マクロの表示ボックスに表示されない
MSgBOX変数
'TESTlで宣言した「変数」に値をセット
HENSU = 9
End Sub
Subレンジ指定0
Dim wLine As lnteger
wLine = 2 ・
MsgBox CStr(wLine) .
MsgBox Range(″G″ + CStr(wLine)).Value
MsgBox Range(″G″ & wLine).Value
Range(″J5″) = CStr(wLine)
End Sub
Sub Sample()
Dim a As Double, tmp As Variant
a = 12 345678
tmp = CStr(a)
MsgBox tmp+″″+VarType(tmp) '文字列型(8)を返します
End Sub
Subこのワークブックo
Workbooks(″Book2.xlsx″).Activate
ThisWorkbook.Activate
End Sub
Subオープンイベント0
Workbooks.Open ″C:￥Users￥9002715￥Documents￥Today￥Book2.xlsm″
End Sub

NAME:

MAIL:

URL:

COLOR:
Black LimeGreen SeaGreen Teal FireBrick Tomato IndianRed BurlyWood SlateGray DarkSlateBlue LightPink DeepPink DarkOrange Gold DimGray Silver
SUBJECT:

COMMENT:


PASS: