アーティクル

#99 Article 991 Posted at 1995/12/07 19:58:40 by ＰＡＺ（鬼） (MAP2562) [SAHOU.1]

Subject: Re:*7 プログラミングお作法の話 /989 ... /941 /940

ちょっと変わったところで・・・その１。

Rem にゃん数 on VBA / Microsoft Excel 5.0 Macro Module

Sub nyaCount()
    Dim num As Integer
    Dim i As Integer
    Dim s As String
    Dim c As Range
    Dim tmpNum As Variant

    tmpNum = InputBox("1 以上の数値を入力して下さい", "にゃん数入力")
    If IsNumeric(tmpNum) = False Then tmpNum = "0"
    num = CInt(tmpNum)
    If 1 > num Then
        MsgBox "ダメにゃん！", 48
        Exit Sub
    End If

    i = 1
    While i < num
        Set c = ActiveCell
        If i = 3 Or i = 5 Then
            s = catNya(i)
        Else
            s = CStr(i)
        End If
        c.Value = s
        ActiveSheet.Cells(c.Row + 1, c.Column).Activate
        i = i + 1
    Wend
    ActiveCell.Value = catNya(num)
End Sub

Function catNya(ByVal count As Integer) As String
    Dim i As Integer
    Dim str As String

    str = ""
    For i = 1 To count
        str = str + "にゃん"
    Next i

    catNya = str
End Function

　Microsoft Excel 5.0 上で動作し、選択されているセルから縦方向に
　結果を格納します。
　実行するには新規 Module シートを挿入して本ソースを書き込んだ後、
　[オプション]→[マクロ] で nyaCount を選択し、
　[開始] ボタンを押して下さい。

　画面表示をセルへの代入にしていること以外は特徴はないです ^^;
　VBA / Excel はインデント以外はスタイルが自動なのでつまらないです(;_;)

						ＰＡＺ