Excel VBA質問箱 IV

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

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


8191 / 76732 ←次へ | 前へ→

【74118】空欄判定で2セル下にづらしたい場合
質問  桃園  - 13/4/19(金) 10:42 -

引用なし
パスワード
   マクロの記録を使っていろいろやってみたのですが・・・
こんがらがってわからなくなりましたのでお助けください。

1、変数を使って、A9のセルが空欄なら記入、
空欄でない場合はA11のセルに記入のループ
と2行づつ判定する文を作るつもりだったのですが
変数を当てはめるとどうもおかしいことに・・・
A=9、B=10の変数を使用して
Do White Cells(A, 1)= ""
A=A+2
B=B+2
Loop
で判定させようと思ったのですがうまくいきません。

2、1.の変数を使用してセルを結合することは可能ですか?
Worksheets("sheet2").Range("A9:G10,H9:J10,K9:N10,O9:Q10,R9:T9,R10:T10").Select
↓変数を使って複数のセルをばらばらに結合したい
Worksheets("sheet2").Range(Cells(A,1)(B,8)),(Cells(A,9)(B,11)),(Cells(A,12)(B,15)),(Cells(A,16)(B,18)),(Cells(A,19)(A,21)),(Cells(B,19)(B,21)).Select

無意味な文も多数あると思いますが
いまいち理解してない部分が多いのでご教授よろしくお願いします。

※ボタンはSheet1にあります。
--------------------------------------------------------------
Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  If Range("AK11") = 1 Then
    Range("A49:W50").Select
    Sheets("sheet2").Select
    Worksheets("sheet2").Range("A9:W10").Select
  With Selection
    .VerticalAlignment = xlCenter
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
  End With
    Sheets("sheet1").Select
    Range("A49:W50").Select
    Selection.Copy
    Sheets("sheet2").Select
    Worksheets("sheet2").Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Worksheets("sheet2").Range("A9:G10,H9:J10,K9:N10,O9:Q10,R9:T9,R10:T10").Select
    Worksheets("sheet2").Range("T10").Activate
    Application.CutCopyMode = False
  With Selection
    .VerticalAlignment = xlCenter
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
  End With
    Worksheets("sheet2").Range("V9:V10").Select
    Selection.NumberFormatLocal = "yyyy""年""m""月"";@"
    MsgBox "完了", vbOKOnly, "確認"
    Else
    MsgBox "内訳がありません。", vbCritical, "エラー"
  End If
End Sub

1 hits

【74118】空欄判定で2セル下にづらしたい場合 桃園 13/4/19(金) 10:42 質問
【74119】Re:空欄判定で2セル下にづらしたい場合 UO3 13/4/19(金) 12:07 発言
【74120】Re:空欄判定で2セル下にづらしたい場合 桃園 13/4/19(金) 12:58 質問
【74121】Re:空欄判定で2セル下にづらしたい場合 UO3 13/4/19(金) 14:10 発言
【74123】Re:空欄判定で2セル下にづらしたい場合 桃園 13/4/19(金) 14:33 お礼

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