EXCEL2003で作った勤務管理票があります。
そのシートの中の
【社員名】というセルに社員の名前、
【社員番号】というセルに社員番号が次々と表示されて印刷出来るように
したいと思います。
そこで
ＶＬＯＯＫＵＰ関数を使いマクロで印刷できるようにしました。
ところが
画面番号に【3】と入力してＥｎｔｅｒを押しても、
前に入力した【2】の番号のまま
画面が切り替わりません。
上書きしたらやっと 【3】の画面に変わります。
どうしてこうなるのか原因がわかりません。
参照する表に空白があると上手く動いてくれないのでしょうか？
今はまだ新入社員の番号が分らないため、空白にしてあるせいでしょうか？
よろしくご教示くださいませ。
そのシートの中の
【社員名】というセルに社員の名前、
【社員番号】というセルに社員番号が次々と表示されて印刷出来るように
したいと思います。
そこで
ＶＬＯＯＫＵＰ関数を使いマクロで印刷できるようにしました。
ところが
画面番号に【3】と入力してＥｎｔｅｒを押しても、
前に入力した【2】の番号のまま
画面が切り替わりません。
上書きしたらやっと 【3】の画面に変わります。
どうしてこうなるのか原因がわかりません。
参照する表に空白があると上手く動いてくれないのでしょうか？
今はまだ新入社員の番号が分らないため、空白にしてあるせいでしょうか？
よろしくご教示くださいませ。
|
|
|
|
コメント(64)
画面番号の後ろの番号はA2の値と同じなんだからもっと簡単に出来ましたね。
Sub Macro1()
Dim strSheetMonth As String
strSheetMonth = Sheets(ActiveSheet.Name).Range("A2").Value
Range("画面番号" & strSheetMonth) = Range("印刷開始" & strSheetMonth)
Do While Range("画面番号" & strSheetMonth)<= Range("印刷終了" & strSheetMonth)
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号" & strSheetMonth) = Range("画面番号" & strSheetMonth) + 1
Loop
End Sub
Sub Macro1()
Dim strSheetMonth As String
strSheetMonth = Sheets(ActiveSheet.Name).Range("A2").Value
Range("画面番号" & strSheetMonth) = Range("印刷開始" & strSheetMonth)
Do While Range("画面番号" & strSheetMonth)<= Range("印刷終了" & strSheetMonth)
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号" & strSheetMonth) = Range("画面番号" & strSheetMonth) + 1
Loop
End Sub
Golden様、たつや.com様
早々にお返事いただきありがとうございました。
金曜日の夜から試行錯誤しながらやっと今思い通りのものが完成しました。
結果としては
たつや.com様の教えてくださった万年カレンダーのサイトを参考にさせていただき
まず、【１枚仕立ての勤務管理表】を完成させて、万年使えるモノを作成しました。
これは、年・月が変わっても祝日は自動的に赤色に表示してくれるし、
うるう年もちゃんと表示してくれて修正不要で感激です！！
マクロに関しては、
Golden様の29コメントのマクロをそっくりそのまま使わせていただきました。
これで期待した通りの印刷が可能になりました。
大満足です♪
本当にありがとうございました。
これから、勤務管理表だけでなくいろんなシーンに使えそうです。
ひとつ疑問なのですが、
Golden様の コメント29のマクロの３行目の
strSheetMonth = Sheets(ActiveSheet.Name).Range("A2").Value
の部分の("Ａ2")は コメント21のように
Ａ2のセルに 月数
が入っていなければならないのですよね？
私の作った勤務管理表のＡ2のセルには空っぽなんですが
どういうわけか印刷は指示通りしてくれました。
気にしなくてもこのまま使って大丈夫でしょうか？
早々にお返事いただきありがとうございました。
金曜日の夜から試行錯誤しながらやっと今思い通りのものが完成しました。
結果としては
たつや.com様の教えてくださった万年カレンダーのサイトを参考にさせていただき
まず、【１枚仕立ての勤務管理表】を完成させて、万年使えるモノを作成しました。
これは、年・月が変わっても祝日は自動的に赤色に表示してくれるし、
うるう年もちゃんと表示してくれて修正不要で感激です！！
マクロに関しては、
Golden様の29コメントのマクロをそっくりそのまま使わせていただきました。
これで期待した通りの印刷が可能になりました。
大満足です♪
本当にありがとうございました。
これから、勤務管理表だけでなくいろんなシーンに使えそうです。
ひとつ疑問なのですが、
Golden様の コメント29のマクロの３行目の
strSheetMonth = Sheets(ActiveSheet.Name).Range("A2").Value
の部分の("Ａ2")は コメント21のように
Ａ2のセルに 月数
が入っていなければならないのですよね？
私の作った勤務管理表のＡ2のセルには空っぽなんですが
どういうわけか印刷は指示通りしてくれました。
気にしなくてもこのまま使って大丈夫でしょうか？
>>まゆさん
シート構成を変更されたのですね。
では前のマクロで問題ないと思われます。（下記、少々直しました）
29のコードは構成を変更されない場合のコードです。
今となっては必要ないです。
Sheets(ActiveSheet.Name).PrintOutはアクティブになったシートを印刷します。
新しいファイルはセルや範囲の名前が同じですよね？
Sub Macro1()
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号")<= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
End Sub
シート構成を変更されたのですね。
では前のマクロで問題ないと思われます。（下記、少々直しました）
29のコードは構成を変更されない場合のコードです。
今となっては必要ないです。
Sheets(ActiveSheet.Name).PrintOutはアクティブになったシートを印刷します。
新しいファイルはセルや範囲の名前が同じですよね？
Sub Macro1()
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号")<= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
End Sub
こんな感じかしら…。
Option Explicit
Sub Macro1()
Dim intAnswer As Integer
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
Option Explicit
Sub Macro1()
Dim intAnswer As Integer
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
自分が作ったマクロBookを他人が使う場合、いろんな配慮が必要になりますよね。時には思いもつかないようなエラーを発生させちゃったり(^^;
使っていく過程で、必要なエラー処理などを付け加えていく感じでどうでしょう？
数日前も、自分が作ったマクロファイルがおかしい日付を吐いたので怒られたのですが、調べてみたらその人のパソコンの日付が合ってなくて…画面右下をＷクリックして修正しました(^^;
>>未来過ぎる(3ヶ月以上？1年以上？)のも、強制中止で良いかも？
A1セルの条件付き書式で未来過ぎる場合は赤く塗りつぶすとか、データ規則で制限するなどでも対応できますよね。
トピ主さん、38のコードではカレンダーの基準値がA1にあるという想定で書きました。（サンプルファイルがA1だったので）違ってたら修正してください。
使っていく過程で、必要なエラー処理などを付け加えていく感じでどうでしょう？
数日前も、自分が作ったマクロファイルがおかしい日付を吐いたので怒られたのですが、調べてみたらその人のパソコンの日付が合ってなくて…画面右下をＷクリックして修正しました(^^;
>>未来過ぎる(3ヶ月以上？1年以上？)のも、強制中止で良いかも？
A1セルの条件付き書式で未来過ぎる場合は赤く塗りつぶすとか、データ規則で制限するなどでも対応できますよね。
トピ主さん、38のコードではカレンダーの基準値がA1にあるという想定で書きました。（サンプルファイルがA1だったので）違ってたら修正してください。
>>過去の場合は、マクロを強制中止してしまっても良いかも
忘れてました(^^;
印刷終了後にセルIV1へA1の日付を書き込んでおき、印刷ボタン押すと、セルIV1とA1を比較させ、A1の日付がIV1の日付より古い場合と同じ場合（印刷1回以上）は止めました。
Option Explicit
Sub Macro1()
Dim intAnswer As Integer
If Range("IV1").Value >= Range("A1").Value Or _
Range("IV1").Value = Range("A1").Value Then Exit Sub
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Range("IV1").Value = Range("A1").Value
Else
Exit Sub
End If
End Sub
忘れてました(^^;
印刷終了後にセルIV1へA1の日付を書き込んでおき、印刷ボタン押すと、セルIV1とA1を比較させ、A1の日付がIV1の日付より古い場合と同じ場合（印刷1回以上）は止めました。
Option Explicit
Sub Macro1()
Dim intAnswer As Integer
If Range("IV1").Value >= Range("A1").Value Or _
Range("IV1").Value = Range("A1").Value Then Exit Sub
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Range("IV1").Value = Range("A1").Value
Else
Exit Sub
End If
End Sub
出勤時間が迫ってるのでメッセージボックスの中身はトピ主さんに替えてもらって、とりあえず印刷できるユーザーを限定するようにしてみました。
下記は3人までです。付け加える場合は数字を増やしてください。
>>過去と未来は、TODAY関数で比較すれば簡単だと…
この課題は帰宅後ということで…(^^;
Option Explicit
Option Base 1
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim intAnswer As Integer
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "hoge"
strUserName(3) = "higehoge"
For i = 1 To 3
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー名：" & objWSN.UserName & " は印刷できません"
Exit Sub
End If
If Range("IV1").Value >= Range("A1").Value Or _
Range("IV1").Value = Range("A1").Value Then
MsgBox "印刷無効"
Exit Sub
End If
・
・
・
Set objWSN = Nothing
End Sub
下記は3人までです。付け加える場合は数字を増やしてください。
>>過去と未来は、TODAY関数で比較すれば簡単だと…
この課題は帰宅後ということで…(^^;
Option Explicit
Option Base 1
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim intAnswer As Integer
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "hoge"
strUserName(3) = "higehoge"
For i = 1 To 3
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー名：" & objWSN.UserName & " は印刷できません"
Exit Sub
End If
If Range("IV1").Value >= Range("A1").Value Or _
Range("IV1").Value = Range("A1").Value Then
MsgBox "印刷無効"
Exit Sub
End If
・
・
・
Set objWSN = Nothing
End Sub
「EXCEL メッセージ」で検索すると
http://www11.plala.or.jp/koma_Excel/contents4/mame4034/mame403404.html
が出て来ます。
>それと、過去と未来は、TODAY関数で比較すれば簡単だと…
>参考
>J1=DATE(YEAR(TODAY()),MONTH(TODAY())-1,DAY(TODAY()))
>K1=DATE(YEAR(TODAY()),MONTH(TODAY())+3,DAY(TODAY()))
こんな簡単じゃなかったです。
今月(4月)から再来月(6月)までの印刷を許可するということは、
4月1日〜6月1日までの印刷でなければなりません。
「EXCEL 1ヶ月後」で検索すると、
http://plaza.rakuten.co.jp/pasodairy/diary/200502090000/
に、EDATE関数があるので…
携帯からなので、ここまで(^_^;)
http://www11.plala.or.jp/koma_Excel/contents4/mame4034/mame403404.html
が出て来ます。
>それと、過去と未来は、TODAY関数で比較すれば簡単だと…
>参考
>J1=DATE(YEAR(TODAY()),MONTH(TODAY())-1,DAY(TODAY()))
>K1=DATE(YEAR(TODAY()),MONTH(TODAY())+3,DAY(TODAY()))
こんな簡単じゃなかったです。
今月(4月)から再来月(6月)までの印刷を許可するということは、
4月1日〜6月1日までの印刷でなければなりません。
「EXCEL 1ヶ月後」で検索すると、
http://plaza.rakuten.co.jp/pasodairy/diary/200502090000/
に、EDATE関数があるので…
携帯からなので、ここまで(^_^;)
先月を印刷する必要はないので、1ヶ月前を求める必要はないです。
また、無理に全てマクロで計算・判定する必要もないと思います。
印刷の指定月は、日を指定しないので、見かけ上、○月1日となります。
今日(4/15)、今月の印刷をする場合は、見かけ上、4月1日。
来月は、5月1日。先月を間違えて指定すると、見かけ上、3月1日。
今月(4月)から再来月(6月)までの印刷を許可する場合、
見かけ上、4月1日〜6月1日までの印刷でなければなりません。
先月であれば、3月1日が、4月1日〜6月1日に入っているかどうかを
判定すれば良いと思います。
また、EDATE関数は、アドインなので、なるべく使わず、簡易的に、
J1=DATE(YEAR(TODAY()),MONTH(TODAY()),1)
K1=TODAY()+190 ←7月の印刷も許可する可能性があるが良しとする。
としても良いと思います。
また、無理に全てマクロで計算・判定する必要もないと思います。
印刷の指定月は、日を指定しないので、見かけ上、○月1日となります。
今日(4/15)、今月の印刷をする場合は、見かけ上、4月1日。
来月は、5月1日。先月を間違えて指定すると、見かけ上、3月1日。
今月(4月)から再来月(6月)までの印刷を許可する場合、
見かけ上、4月1日〜6月1日までの印刷でなければなりません。
先月であれば、3月1日が、4月1日〜6月1日に入っているかどうかを
判定すれば良いと思います。
また、EDATE関数は、アドインなので、なるべく使わず、簡易的に、
J1=DATE(YEAR(TODAY()),MONTH(TODAY()),1)
K1=TODAY()+190 ←7月の印刷も許可する可能性があるが良しとする。
としても良いと思います。
できました
Option Explicit
Option Base 1
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim intAnswer As Integer
' ----------------------------------------------------------------------
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
For i = 1 To UBound(strUserName)
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー名：" & objWSN.UserName & "は無効です"
Exit Sub
End If
Set objWSN = Nothing
' ----------------------------------------------------------------------
If Range("A1").Value < DateAdd("d", -30, Date) Or _
DateAdd("m", 2, Date) < Range("A1").Value Then
MsgBox "印刷無効です"
Exit Sub
End If
' ----------------------------------------------------------------------
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
Option Explicit
Option Base 1
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim intAnswer As Integer
' ----------------------------------------------------------------------
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
For i = 1 To UBound(strUserName)
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー名：" & objWSN.UserName & "は無効です"
Exit Sub
End If
Set objWSN = Nothing
' ----------------------------------------------------------------------
If Range("A1").Value < DateAdd("d", -30, Date) Or _
DateAdd("m", 2, Date) < Range("A1").Value Then
MsgBox "印刷無効です"
Exit Sub
End If
' ----------------------------------------------------------------------
intAnswer = MsgBox(Format(Range("A1").Value, "yyyy年mm月") & _
"の印刷を開始しますか？", vbCrLf & vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
49を修正しました。
このままでは手動で印刷できてしまうので、ユーザー制限のコードは
Private Sub Workbook_Open()
End Sub
の間に書いて、ファイルを開いたときに実行し、対象外のユーザーのときはシートは非表示のままにした方がいいですね。
まあ、今回はこのままにしておきます。
で、印刷可能期間ですが、
>>←7月の印刷も許可する可能性があるが良しとする。
とありますが、妥協したくないので改良修正しました(^_^;)
CDate()って便利ですね。文字列を日付として扱ってくれます。
条件は満たしてると思いますがご確認ください。
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim strDate As String
Dim strPast As String
Dim strFuture As String
Dim intAnswer As Integer
' ----------------------------------------------------------------------
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
For i = 1 To UBound(strUserName)
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー： " & objWSN.UserName & " は印刷できません", _
vbCritical, "ユーザー名 確認"
Exit Sub
End If
Set objWSN = Nothing
' ----------------------------------------------------------------------
strDate = Range("A1").Value
strPast = Date - Day(Date)
strFuture = Year(Date) & "/" & Month(Date) + 2 & "/1"
If CDate(strDate) < CDate(strPast) Or _
CDate(strFuture) < CDate(strDate) Then
MsgBox "印刷無効です ", vbExclamation, "印刷月数 確認"
Exit Sub
End If
' ----------------------------------------------------------------------
intAnswer = MsgBox(Format(strDate, "yyyy年mm月") & _
"の印刷を開始しますか？", vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
このままでは手動で印刷できてしまうので、ユーザー制限のコードは
Private Sub Workbook_Open()
End Sub
の間に書いて、ファイルを開いたときに実行し、対象外のユーザーのときはシートは非表示のままにした方がいいですね。
まあ、今回はこのままにしておきます。
で、印刷可能期間ですが、
>>←7月の印刷も許可する可能性があるが良しとする。
とありますが、妥協したくないので改良修正しました(^_^;)
CDate()って便利ですね。文字列を日付として扱ってくれます。
条件は満たしてると思いますがご確認ください。
Sub Macro1()
Dim objWSN As Object
Dim strUserName(3) As String
Dim i As Integer
Dim BooFlag As Boolean
Dim strDate As String
Dim strPast As String
Dim strFuture As String
Dim intAnswer As Integer
' ----------------------------------------------------------------------
Set objWSN = CreateObject("WScript.Network")
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
For i = 1 To UBound(strUserName)
If objWSN.UserName = strUserName(i) Then BooFlag = True
Next i
If BooFlag = False Then
MsgBox "ユーザー： " & objWSN.UserName & " は印刷できません", _
vbCritical, "ユーザー名 確認"
Exit Sub
End If
Set objWSN = Nothing
' ----------------------------------------------------------------------
strDate = Range("A1").Value
strPast = Date - Day(Date)
strFuture = Year(Date) & "/" & Month(Date) + 2 & "/1"
If CDate(strDate) < CDate(strPast) Or _
CDate(strFuture) < CDate(strDate) Then
MsgBox "印刷無効です ", vbExclamation, "印刷月数 確認"
Exit Sub
End If
' ----------------------------------------------------------------------
intAnswer = MsgBox(Format(strDate, "yyyy年mm月") & _
"の印刷を開始しますか？", vbYesNo + vbQuestion, "印刷確認")
If intAnswer = vbYes Then
Range("画面番号") = Range("印刷開始")
Do While Range("画面番号") <= Range("印刷終了")
Sheets(ActiveSheet.Name).PrintOut
Range("画面番号") = Range("画面番号") + 1
Loop
Else
Exit Sub
End If
End Sub
まゆさん、こんばんは。
これを標準モジュールにコピペして実行してください。
A2にユーザー名を書き込みます。
A2にデータがある場合は違うセルに設定してください。
Sub ログインユーザー名を取得()
Dim objWSN As Object
Set objWSN = CreateObject("WScript.Network")
Range("A2").Value = objWSN.UserName
Set objWSN = Nothing
End Sub
で、A2に入力されたユーザー名をコード内の下記の部分にコピペしてください。
これで出来るはずですが･･･。
strUserName(1) = "○○"
strUserName(2) = "Golden"
strUserName(3) = "HogeHoge"
これを標準モジュールにコピペして実行してください。
A2にユーザー名を書き込みます。
A2にデータがある場合は違うセルに設定してください。
Sub ログインユーザー名を取得()
Dim objWSN As Object
Set objWSN = CreateObject("WScript.Network")
Range("A2").Value = objWSN.UserName
Set objWSN = Nothing
End Sub
で、A2に入力されたユーザー名をコード内の下記の部分にコピペしてください。
これで出来るはずですが･･･。
strUserName(1) = "○○"
strUserName(2) = "Golden"
strUserName(3) = "HogeHoge"
Golden様
お疲れのところをご親切にありがとうございます。
お恥ずかしいことに
５５コメントを読ませていただき、今やっと気が付きました。
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
↑ここを変えなきゃいけなかったのですね？？
私はてっきり
MsgBox "ユーザー： " & objWSN.UserName & " は印刷できません", _
vbCritical, "ユーザー名 確認"
を変えるのかと勘違いしていました。
（余談ですがhogeっていったい誰？何？って思ったので
早速ググってみましたところ、
「必要な文字に置き換えて使ってください」
という意味だったのですね!?
これも一緒に勉強になりました。）
そこで
早速この部分の名前を変えてみましたら、
ちゃんと印刷出来ました。
本当にありがとうございました。
こんなにすごいマクロを私が仕事で使えるなんてホント夢みたいです。
（私はなんにも苦労してないのに・・・・）
ホントにありがとうございました。
お疲れのところをご親切にありがとうございます。
お恥ずかしいことに
５５コメントを読ませていただき、今やっと気が付きました。
strUserName(1) = "Golden"
strUserName(2) = "Hoge"
strUserName(3) = "HogeHoge"
↑ここを変えなきゃいけなかったのですね？？
私はてっきり
MsgBox "ユーザー： " & objWSN.UserName & " は印刷できません", _
vbCritical, "ユーザー名 確認"
を変えるのかと勘違いしていました。
（余談ですがhogeっていったい誰？何？って思ったので
早速ググってみましたところ、
「必要な文字に置き換えて使ってください」
という意味だったのですね!?
これも一緒に勉強になりました。）
そこで
早速この部分の名前を変えてみましたら、
ちゃんと印刷出来ました。
本当にありがとうございました。
こんなにすごいマクロを私が仕事で使えるなんてホント夢みたいです。
（私はなんにも苦労してないのに・・・・）
ホントにありがとうございました。
動いてよかったです(^o^;
ファイルを複数の人が使う場合はその人たちのユーザー名を書き込めばいいわけです。まあ、今回の勤務管理表の印刷にはいらない機能かもしれませんが、印刷や閲覧を限定したい場合はブックを開くときに実行するようにしておき、マクロをパスワードロックします。
ユーザーを追加する場合はDim・・・の変数宣言の（）内の数も忘れずに変更してください。
■ブックのイベント
http://www.k1simplify.com/vba/tipsleaf/leaf312.html
ところで、印刷有効期間の指定はうまくできてるでしょうか？
この部分のコードを説明しますと、
strDateはA1のカレンダーの日付です。
strPastは現在の日付から現在の日にち(可変します)15を引きその日付を格納します。今なら2008/3/31となるはずです。= Date - Day(Date)
strFutureは現在の日付から年数、月数を抜き出し２ヶ月加算、日にちは一日に指定した日付文字列を格納します。今なら2008/6/1です。= Year(Date) & "/" & Month(Date) + 2 & "/1"
で、A1が7月の場合や3月の場合は印刷できないようにしてます。
ファイルを複数の人が使う場合はその人たちのユーザー名を書き込めばいいわけです。まあ、今回の勤務管理表の印刷にはいらない機能かもしれませんが、印刷や閲覧を限定したい場合はブックを開くときに実行するようにしておき、マクロをパスワードロックします。
ユーザーを追加する場合はDim・・・の変数宣言の（）内の数も忘れずに変更してください。
■ブックのイベント
http://www.k1simplify.com/vba/tipsleaf/leaf312.html
ところで、印刷有効期間の指定はうまくできてるでしょうか？
この部分のコードを説明しますと、
strDateはA1のカレンダーの日付です。
strPastは現在の日付から現在の日にち(可変します)15を引きその日付を格納します。今なら2008/3/31となるはずです。= Date - Day(Date)
strFutureは現在の日付から年数、月数を抜き出し２ヶ月加算、日にちは一日に指定した日付文字列を格納します。今なら2008/6/1です。= Year(Date) & "/" & Month(Date) + 2 & "/1"
で、A1が7月の場合や3月の場合は印刷できないようにしてます。
たつや.com様 Golden様
いろんなケースを想定して それに対応できる方法を
たくさん考えてくださって本当にありがとうございます。
忘れないうちに別シートにマニュアルにして保存しておきます。
マクロの印刷ボタンを押したあと、やっぱり止めたいと思ったとき
キャンセルできるようになっていたことが
大変嬉しかったです。
私はとてもうっかりしているので、事前にプリンターを選択し忘れたまま
マクロボタンを押してしまい、間違えて請求伝票用紙に
印刷してしまったりってことがよくあるのです;(+_+);
プリンターが起動し始めてやっとプリンター機の選択間違いに気がつくんです。
このマクロだとそれからでも充分間に合うので
これでミスプリの被害も減りそうです。
＞印刷終了後、
「○○さん、お疲れ様でした！」
このメッセージが出てきたら、なんだかほのぼのして和みますね。
マクロってホントいろんなことが出来るのですね。
上司が見たら喜ぶかもしれません(*^θ^*)
とても解りやすい説明に感謝しています。
本当にご親切にありがとうございました。
いろんなケースを想定して それに対応できる方法を
たくさん考えてくださって本当にありがとうございます。
忘れないうちに別シートにマニュアルにして保存しておきます。
マクロの印刷ボタンを押したあと、やっぱり止めたいと思ったとき
キャンセルできるようになっていたことが
大変嬉しかったです。
私はとてもうっかりしているので、事前にプリンターを選択し忘れたまま
マクロボタンを押してしまい、間違えて請求伝票用紙に
印刷してしまったりってことがよくあるのです;(+_+);
プリンターが起動し始めてやっとプリンター機の選択間違いに気がつくんです。
このマクロだとそれからでも充分間に合うので
これでミスプリの被害も減りそうです。
＞印刷終了後、
「○○さん、お疲れ様でした！」
このメッセージが出てきたら、なんだかほのぼのして和みますね。
マクロってホントいろんなことが出来るのですね。
上司が見たら喜ぶかもしれません(*^θ^*)
とても解りやすい説明に感謝しています。
本当にご親切にありがとうございました。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
