Excel VBA質問箱 IV

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

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


8190 / 76732 ←次へ | 前へ→

【74119】Re:空欄判定で2セル下にづらしたい場合
発言  UO3  - 13/4/19(金) 12:07 -

引用なし
パスワード
   ▼桃園 さん:

こんにちは
アップされたコードをそのまま、整理すると以下のようになりますので、
ここから出発されたらよろしいと思うのですが、

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

よく理解できません。
具体的に、シートのどのセル領域の各セルが、そうであれば、どのシートのどこに何をセットしたいと
言葉で具体的に説明いただけませんか?

>2、1.の変数を使用してセルを結合することは可能ですか?

これについても、【1.の変数】含めて 1. そのものがよくわからないので
コメントしづらいですねぇ。

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  If Range("AK11") = 1 Then
    With Worksheets("sheet2").Range("A9:W10")
      .VerticalAlignment = xlCenter
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
    End With
    Worksheets("sheet2").Range("A9:W10").Value = Range("A49:W50").Value
    With Worksheets("sheet2").Range("A9:G10,H9:J10,K9:N10,O9:Q10,R9:T9,R10:T10")
      .VerticalAlignment = xlCenter
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = True
    End With
    Worksheets("sheet2").Range("V9:V10").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 お礼

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