Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59333 / 76807

←次へ　｜　前へ→


	【22180】Re:表の合計を計算

りすりす - 05/2/10(木) 16:05 -


	引用なし

	パスワード

>ループはこんなのでいけると思います。
>
>　Dim i As Long
>　For i = UCase(Asc("l")) To UCase(Asc("q")) ' 小さい方を先に書く
>　 Totals (Chr(i))
>
AAとかになると
このループ問題があるので
こっちに修正します

列を番号で考えなくていいので楽にかけると思います。

Private Sub CommandButton1_Click()
　Dim i As Long
'　For i = Range("l1").Column To Range("q1").Column
　For i = StrToColNum("l") To StrToColNum("q")
　　Totals (ColNumToStr(i))
　'　MsgBox ColNumToStr(i)
　Next
End Sub

下の関数を定義しておくと
列の文字だけほしいときに便利です。

Public Function ColNumToStr(ByVal Value As Long) As String
' 数字を入れると　列の文字を返す
' 1 なら　A　が返ってきます
　ColNumToStr = Replace(Cells(1, Value).Address(0, 0), "1", "")
End Function

Public Function StrToColNum(ByVal Value As String) As Long
　' aとかｂとかいれると　　列数を返す。
' a なら　1　が返ってきます
　StrToColNum = Range(Value & 1).Column
End Function

0 hits

▼

【22143】表の合計を計算 igusukei 05/2/9(水) 21:21