Excel VBA質問箱 IV

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

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


35567 / 76738 ←次へ | 前へ→

【46369】ユーザーフォーム上で列変更
質問  takashi  - 07/2/1(木) 1:51 -

引用なし
パスワード
   現在下記コードをユーザーフォーム上で利用しているのですが
B列をたとえばD列あるいはG列というように[書式の都合で変更したい]
ユーザーフォームにテキストボックスを置き簡単に列変更できませんか。?
テキストボックスでいいのか悪いのかその辺もわかりません。
ご指導お願いできますか。
Option Explicit

Private Sub CommandButton1_Click()
With ActiveCell
    If .Column <> 2 Or .Value <> "" Then ※ここの2を変更 4or7
      MsgBox "セルの場所が不適切です"
      Exit Sub
    End If
End With

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

r = ActiveCell.Row

myRes = MsgBox("小計を出します", vbYesNo)
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 = "小計" ※2とBを変更 4or7 DorG
  End If
    i = 1
  End If
  Next
 End If
End Sub


Private Sub CommandButton2_Click()
With ActiveCell
    If .Column <> 2 Or .Value <> "" Then ※ここの2を変更 4or7
      MsgBox "セルの場所が不適切です"
      Exit Sub
    End If
End With

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

r = ActiveCell.Row

myRes = MsgBox("合計を出します", vbYesNo)

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 = "合計" ※2とBを変更 4or7 DorG
  End If
    i = 1
  End If
 Next
End Sub
0 hits

【46369】ユーザーフォーム上で列変更 takashi 07/2/1(木) 1:51 質問
【46376】Re:ユーザーフォーム上で列変更 へっぽこ 07/2/1(木) 11:09 発言
【46377】Re:ユーザーフォーム上で列変更 りん@とおりすがり 07/2/1(木) 11:12 回答
【46385】Re:ユーザーフォーム上で列変更 takashi 07/2/1(木) 14:12 発言
【46390】Re:ユーザーフォーム上で列変更 りん@とおりすがり 07/2/1(木) 16:46 回答
【46396】Re:ユーザーフォーム上で列変更 takashi 07/2/1(木) 18:37 お礼

35567 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free