|
マクロの記録を使っていろいろやってみたのですが・・・
こんがらがってわからなくなりましたのでお助けください。
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
|
|