Excel VBA質問箱 IV

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

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


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

37383 / 76738

←次へ　｜　前へ→


	【44523】Re:小計・合計を求める…修正してみたのですが

ichiro - 06/11/20(月) 15:15 -


	引用なし

	パスワード

おしえてください。
G列の計算値は表示出来るのですが
A列に小計or合計が出ませんどこか間違っているのでしょうか

Option Explicit
Private Sub CommandButton1_Click()
With ActiveCell
　　　　If .Column <> 7 Or .Value <> "" Then
　　　　　　MsgBox "セルの場所が不適切です"
　　　　　　Exit Sub
　　　　End If
End With

Dim i As Long
Dim r As Long
Dim myRes As Variant

r = ActiveCell.Row

myRes = MsgBox("小計なら　はい、合計なら　いいえを選んでください", vbYesNoCancel)
If myRes = vbYes Then
For i = r - 1 To 1 Step -1
　　If Cells(i, 1).Value = "小計" Or Cells(i, 1).Value = "合計" Or Cells(i, 1).Value = "品　　　　名" Then
　　If i = r - 1 Then
　　　　MsgBox ("計算する行がありません")
　　Else
　　　　Cells(r, 7).Value = "=sum(G" & i + 1 & ":G" & r - 1 & ")"
　　　　Cells(r, 1).Value = "小計"
　　End If
　　　　i = 1
　　End If
Next

ElseIf myRes = vbNo Then
For i = r - 1 To 1 Step -1
　　If Cells(i, 1).Value = "合計" Or Cells(i, 1).Value = "品　　　　名" Then
　　If i = r - 1 Then
　　　　MsgBox ("計算する行がありません")
　　Else
　　　　Cells(r, 7).Value = "=sumif(A" & i + 1 & ":G" & r - 1 & ",""小計"",G" & i + 1 & ":G" & r - 1 & ")"
　　　　Cells(r, 1).Value = "合計"
　　End If
　　　　i = 1
　　End If
　Next
　　End If
End Sub
下記を元に上記のように修正してみたのですが

ご指導お願いします。

>　　A　　　B　　　 C　　　　D　　　　 E　　　　 F
>1　品名　　　　形式　　　　　　呼称　　　　数量　　　　単　価　　　　金　額
>2　○○　　　　　　　　　　　　　100　　　　1,250　　　　125,000
>3　△△　　　　　　　　　　　　250　　　　100　　　　 25,000
>4　■□　　　　　　　　　　　　120　　　　2,200　　　　264,000
>　　　　　　　　　　　　　　　　　　　　
>　　:　　　　　　　　　　　　　　　　　　　　
>　　:　　　　　　　　　　　　　　　　　　　　
>　　:　　　　　　　　　　　　　　　　　　　　
>11　××　　　　　　　　　　　　110　　　　150　　　　16,500
>12　●◎　　　　　　　　　　　　300　　　　15　　　　 4,500
>
>
>　　A　　　B　　　 C　　　　D　　　　 E　　　　 F
>1　品名　　　　形式　　　　　　呼称　　　　数量　　　　単　価　　　　金　額
>2　○○　　　　　　　　　　　　　100　　　　1,250　　　　125,000
>3　△△　　　　　　　　　　　　250　　　　100　　　　 25,000
>4
>5　■□　　　　　　　　　　　　120　　　　2,200　　　　264,000
>6　小計　　　　　　　　　　　　　　　　　　　　414,000
>　　:　　　　　　　　　　　　　　　　　　　　
>　　:　　　　　　　　　　　　　　　　　　　　
>　　:　　　　　　　　　　　　　　　　　　　　
>11　××　　　　　　　　　　　　110　　　　150　　　　16,500
>12　●◎　　　　　　　　　　　　300　　　　15　　　　 4,500
>13　　小計　　　　　　　　　　　　　　　　　　　21,000
>
>
>　　合計　　　　　　　　　　　　　　　　　　　454,000
>
>任意の行の小計を算出（コマンドボタン１）『小計』
>上記表はF列ですが汎用性を持たせる為にクリックして列を決めたい。
>MsgBox　"小計の列をクリック。"
>次にMsgBox　"小計の行をクリックしなさい。"上の表の場合A6をクリック
>F13に414,000と（数式記入）表示させる。
>
>次に小計を出す場合は列は上記で
>指定してあるので（コマンドボタン２）『小計２』
>MsgBox　"小計の行をクリック。"
>A13をクリック
>前回の小計を探して
>MsgBox　"小計の範囲はF6からF12です。"　,4
>F13に　21,000を（数式記入）表示
>これを何度か実行し
>
>最後に合計
>アクティブせるから（仮にA100［任意］）の場合A100に"合計"と
>記入しF2:F99までの
>小計行のF列をsumする。
>-------------------------------------------------------------------
>A101以降同様に上記作業が実行され
>
>最後に総合計（仮に）A500に
>合計行のTOTALを出したいのですがVBAで組めますか。？
>
>よろしくお願いします。
>
>下記コードを参考に考えたのですがVBA初心者ではなかなか
>思い通りになりませんでした。
>Option Explicit
>Private Sub CommandButton1_Click()
>With ActiveCell
>　　　　If .Column <> 2 Or .Value <> "" Then
>　　　　　　MsgBox "セルの場所が不適切です"
>　　　　　　Exit Sub
>　　　　End If
>End With
>
>Dim i As Long
>Dim r As Long
>Dim myRes As Variant
>
>r = ActiveCell.Row
>
>myRes = MsgBox("小計なら　はい、合計なら　いいえを選んでください", vbYesNoCancel)
>If myRes = vbYes Then
>For i = r - 1 To 1 Step -1
>　　If Cells(i, 1).Value = "小計" Or Cells(i, 1).Value = "合計" Or Cells(i, 1).Value = "計" Then
>　　If i = r - 1 Then
>　　　　MsgBox ("計算する行がありません")
>　　Else
>　　　　Cells(r, 2).Value = "=sum(B" & i + 1 & ":B" & r - 1 & ")"
>　　　　Cells(r, 1).Value = "小計"
>　　End If
>　　　　i = 1
>　　End If
>Next
>
>ElseIf myRes = vbNo Then
>For i = r - 1 To 1 Step -1
>　　If Cells(i, 1).Value = "合計" Or Cells(i, 1).Value = "計" Then
>　　If i = r - 1 Then
>　　　　MsgBox ("計算する行がありません")
>　　Else
>　　　　Cells(r, 2).Value = "=sumif(A" & i + 1 & ":B" & r - 1 & ",""小計"",B" & i + 1 & ":B" & r - 1 & ")"
>　　　　Cells(r, 1).Value = "合計"
>　　End If
>　　　　i = 1
>　　End If
>　Next
> End If
>End Sub

0 hits

▼

【44504】小計・合計を求める ichiro 06/11/20(月) 1:47