Excel で印刷が終わった頃にメッセージボックスを出したいのですが、下記のコードにどう書き加えたらよいですか、教えて下さい。よろしくお願いします。
With ActiveSheet
（範囲指定用コード：maxR 読み取り）
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" '←見出し 1行
.PrintArea = "A1:G" & maxR '←印刷範囲
End With
ActiveSheet.PrintOut
Rtn = MsgBox("印刷を終えて終了します")
Excel で印刷が終わった頃にメッセージボックスを出したいのですが、下記のコードにどう書き加えたらよいですか、教えて下さい。よろしくお願いします。
With ActiveSheet
（範囲指定用コード：maxR 読み取り）
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" '←見出し 1行
.PrintArea = "A1:G" & maxR '←印刷範囲
End With
ActiveSheet.PrintOut
Rtn = MsgBox("印刷を終えて終了します")
Excel で次のコードを使い改ページを設定して印刷しています。
途中に空行があって、その下には印刷不要な部分があります。
空行の上までで印刷を止めたいのですが、どう書き直したらよいのでしょうか、教えて下さい。よろしくお願いします。
With ActiveSheet
maxR = .Range("A" & Rows.Count).End(xlUp).Row
For wR = 4 To maxR
If .Cells(wR, 5).Value <> Cells(wR - 1, 5) Then
'日付が変わる時、改頁の Break Point設定
.Rows(wR).PageBreak = xlPageBreakManual
End If
Next
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2" '←2行見出し
.PrintArea = "A1:H" & maxR '←印刷範囲設定
End With
お世話になります
値、セルの操作ですが列数等の変更が生じたため変更を求められています。
下記ＶＢＡ判りやすく説明できる方お願い致します。
Sub Macro1()
Dim idxR, idxC, ptr As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
Worksheets.Add after:=ws
ptr = 2
With ws
.Rows(1).Copy Destination:=Range("A1")
For idxR = 2 To .Range("A65536").End(xlUp).Row
Cells(ptr, "A").Value = .Cells(idxR, "A").Value
For idxC = 2 To 255 Step 2
If .Cells(idxR, idxC) = "" Then
Exit For
Else
.Cells(idxR, idxC).Resize(1, 2).Copy Destination:=Cells(ptr, "B")
ptr = ptr + 1
End If
Next idxC
Next idxR
End With
End Sub
お世話になります
値、セルの操作ですが列数等の変更が生じたため変更を求められています。
下記ＶＢＡ判りやすく説明できる方お願い致します。
Sub Macro1()
Dim idxR, idxC, ptr As Integer
Dim ws As Worksheet
Set ws = ActiveSheet
Worksheets.Add after:=ws
ptr = 2
With ws
.Rows(1).Copy Destination:=Range("A1")
For idxR = 2 To .Range("A65536").End(xlUp).Row
Cells(ptr, "A").Value = .Cells(idxR, "A").Value
For idxC = 2 To 255 Step 2
If .Cells(idxR, idxC) = "" Then
Exit For
Else
.Cells(idxR, idxC).Resize(1, 2).Copy Destination:=Cells(ptr, "B")
ptr = ptr + 1
End If
Next idxC
Next idxR
End With
End Sub
開発環境 SQLSERVER VB2005
SQLのCASE文についての質問ですが、DATE型のデータが有効値の場合は”スペース”それ以外の場合は格納されているDATE型を表示したいのですが、どなたかご教授お願いいたします。下記のSQLでは全ての日付が出てしまいます。
SELECT CASE 日付 WHEN '2000/01/01' THEN ' '
ELSE 日付
END AS Expr1
FROM テーブル
CASE文以外でもできますか？
よろしくお願いいたします。
開発環境 SQLSERVER VB2005
SQLのCASE文についての質問ですが、DATE型のデータが有効値の場合は”スペース”それ以外の場合は格納されているDATE型を表示したいのですが、どなたかご教授お願いいたします。下記のSQLでは全ての日付が出てしまいます。
SELECT CASE 日付 WHEN '2000/01/01' THEN ' '
ELSE 日付
END AS Expr1
FROM テーブル
CASE文以外でもできますか？
よろしくお願いいたします。
With Worksheets("シート名").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="該当なし"
End With
というように、A1のセルに対して、「該当なし」というプルダウン（入力規則）を設定し、そのあと文字列（文言）を挿入したいです。
その方法を教えてください。
こんにちは。
どなたか教えていただけませんか？
車両別に毎日の日報データを入力するシートがあるのですが、
入力作業をするのがExcel初心者の人なので、関数が入っているセルを、
上書き・消去しないよう保護をかけて入力可能なシートのみ選択・入力できるようにしてあります。
１ヶ月ごとに入力したデータを消去し、新たなデータを入力していくのですが、
ロックされていないセルのデータだけを一括で消去出来るマクロがないかと探しています。
過去ログで
Sub Cellsdel()
Dim c As Range
For Each c In Sheets("Sheet1").Range("A5:D10")
If c.Locked = False Then
c.ClearContents
'c.Clear '書式も含めて、全て消すならこれ一行
End If
Next
End Sub
というマクロを見つけたのでカスタマイズして試してみましたが、
実行時エラー1004
結合されたセルの一部を変更することは出来ません
となってしまいました。
入力するシートはC4:Z100までが１台分、以下、Z1200まで12台分の車両別に分かれていて、
入力するセルは飛び飛びになっています。
この説明では不足していると思いますが、補足をいたしますので、
どなたかご教授頂けないでしょうか？
マクロはまだ初心者で色々と勉強している最中です。
よろしくお願いいたします。
