avanzato の回答履歴

私はかなり多い件数の住所の緯度・経度をgoogleマップ上で取得し、それをまとめています。現在の取得方法はマップ上で右クリックし、その位置の緯度・経度情報をコピペで取得して１つ１つ取得しています。 住所はすべてあるので、その住所のcsvで読み取り、書き出してくれるようなソフトなど知っていたら教えていただけますでしょうか。少しでも早くなる方法などもありましたら助かります。 よろしくお願いいたします。

初めまして。 この度私は、PCで曲を作ろうと思うのですが、全くの初心者でして…… 何が必要で何がおすすめなのかが分かりません。 そこで経験者の方々に色々とアドバイスを頂きたい。 調べていても、生の声が無いとやはり分かりづらいので質問させて頂きました。 どうぞお手柔らかに。

パソコンのタイピングがうまくなりたいです。 簡単にタイピングがうまくなるコツとかないですか？ ご解答よろしくお願いします。ｍ（＿　＿）ｍ

知識が少ししかありません（ほぼ無知）よい方法を教えて下さい。 先日ＰＣを修理に出したところ、バックアップもせずに修理に出した為にすべてのデータが消えてしまいました。 今後のことも考えてバックアップを常にしたいとこれを機会に勉強したいです。 使っているのはSONYのvaio　windouwsVistaです。 写真やその他文書　ＨＰ等の素材　エクセルにワード保存しておきたいものは山ほどあります。 CD-RとCD-RW　？？？　の違いは　書き込みだけとか　消したり追加でできたりという違いであっていますか？？？？ CD-Rは　一度　移すともう後はどうにもこうにもできないということですか？ CD-RWは　消したり書き込んだり、常に好きなようにできるということですか？ どちらに保存すればよろしいのでしょうか。 消したり書き込んだりいろいろ変更できるのに保存したいです。 よい製品はありますか？　これがいいよっというものがあればURLでも教えていただけると助かります。

デスクトップ型のPCがあります。 （OSはＶｉｓｔａ・ＸＰ両方ございます。どちらでも可） モニターが２台あるので、主モニターと余っているモニター１台を マルチモニターにしたいのですが、どうすればいいでしょうか？？ 接続する端子も一つしかありません。 過去のご回答内容を確認すると・・ビデオカードが対応。。 USBは関係ない。 こういう機械を買うと出来る・・などの解答を発見しましたが、 あまりよく理解できず・・ご質問してしまいました。 なるべく安価で（出来れば機械等使わずに） 出来る操作でマルチモニターにしたいです。 よろしくおねがいします。

エクセルでオートフィルターをかけると全ての列にかかりますが必要な列のみかける方法はありませんか。因みに1列のみかけるのは知っていますが複数でしかも離れた列にかける事ができません。

よろしくお願いいたします 　 今日は2009/12/14 人数　欠席開始日　　　　欠席終了日 学年 1　　　2009/12/7　　　　2009/1215　　　1 1　　　2009/12/7 2009/12/7 5 3　　　2009/12/8 2009/12/15 1 1　　　2009/12/11 2009/12/17 1 1　　　2009/12/14 2009/12/18 2 という表があります。 以前ここで、本日は何人欠席か・・・という質問で SUMPRODUCTの関数で教えていただきました また、質問をお願いしたいのですが、学年ごとに本日の欠席者数を出すことは可能でしょうか？ 本日、１年は○人、２年は○人というような学年毎に出したのですが、よろしくお願いいたします。

別表のような勤務表を２種類作っています。２点教えて頂きたいのです。(1)　一覧表を記入したら各自表に自動で記載される方法。 　　(2)　一覧表に誤ってダブり勤務を記入したとき、アラート表示する方法。毎月、15店舗、３０人以上のシフトを作っていますが、上記２つが出来たら画期的に早くなると思いますので宜しくお願いします。

エクセルでオートフィルターをかけると全ての列にかかりますが必要な列のみかける方法はありませんか。因みに1列のみかけるのは知っていますが複数でしかも離れた列にかける事ができません。

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

エクセル２００３でAuto_Open時にデータの更新をしてみましたが、一々画面を読んでしまい時間がかかってしまいます。 まだコードがよく理解できていませんので、どなたかよい方法を教えてください。 コードは以下のようです。 シートは１８０あり、一覧表にシート名の表を作りました。 よろしくお願いします。 Sub Auto_Open() 'シートオープンで一覧表のデータ更新 '変数の宣言 Dim MyDA As Integer Dim MyDB As String Dim MyDC As String Dim MyDD As String Dim MyDE As String Dim MyDF As String Dim MyDG As String Dim MyDH As String Dim MyDI As String Dim MyDJ As String Dim MyDK As String For MyDA = 3 To 173 '一覧表を呼びシート名の代入 Worksheets("一覧表").Activate MyDB = Range("T" & MyDA).Value '必要なデータの代入 Worksheets(MyDB).Activate MyDC = Range("J3").Value MyDD = Range("J4").Value MyDE = Range("B6").Value MyDF = Range("F6").Value MyDG = Range("K6").Value MyDH = Range("C9").Value MyDI = Range("B8").Value If MyDI = "" Then MyDI = "-" End If MyDJ = Range("F8").Value If MyDJ = "" Then MyDJ = "-" End If MyDK = Range("K8").Value If MyDK = "" Then MyDK = "-" End If Sheets("一覧表").Activate Range("B" & MyDA) = MyDC Range("C" & MyDA) = MyDD Range("D" & MyDA) = MyDE Range("E" & MyDA) = MyDF Range("F" & MyDA) = MyDG Range("G" & MyDA) = MyDH Range("H" & MyDA) = MyDI Range("I" & MyDA) = MyDJ Range("J" & MyDA) = MyDK Next MyDA End Sub

VB2005,Frameworks2を使用しています。 フォームに設置したButtonは、通常マウスをクリックする度にイベントが発生しますが、これをボタンをマウスで押している間だけイベントを発生されたいのですがその様なイベントやボタンの設定が見つかりません。 やはりタイマー等を使わないと再現できないのでしょうか？ よろしくお願いします。

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

エクセルでb列の文字列とc列の文字列をたすしてd列に表す方法教えてください 例　b列　　山　　c列　川　　d列　山川

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。

CSVデータをExcelで開こうとすると文字化けしてしまいます。 EUC-JPという形式？のエンコード？なのですが、 どのような設定をすれば文字化けせずに見れるのでしょうか？ (WindowsXP Excel2007)

お願いします。 長文失礼します。 下記マクロを実行しても、screenupdatingが機能せず、 ブック展開やページ移動が丸見えで、わずらわしいです。 ブックopenや他のマクロに移ると機能しないものなのですか？ それとも、コード記述に誤りがあるのでしょうか？ excel2007 「管理表.xlsmにて指定された過去データ.csvファイルを開いて、それを表示用xlsmブックに書き出し表示するマクロ」 (管理表.xlsm、表示.xlsmそれぞれに) Thisworkbook.Open　にて「画面最大化」のマクロ (管理表.xlsmファイルの標準モジュールに記載) Sub 検索する() On Error GoTo ErrorHandler Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim アドレス As String Dim nsheet As String Dim nbook As String Dim csheet As String Dim cbook As String Dim nアドレス As String Dim fso Dim sFile As String bn = "管理表.xlsm" sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) アドレス = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" 'パス変更注意 nアドレス = "C:\モニターシステム\管理者用\system\program\表示.xlsm" cbook = "DB" & (検索日) & ".csv" csheet = "DB" & (検索日) nbook = "表示.xlsm" nsheet = "手動操作" Workbooks.Open Filename:=nアドレス, ReadOnly:=True Workbooks(nbook).Sheets("検索中").Select Application.ScreenUpdating = False sFile = アドレス Set fso = CreateObject("Scripting.FilesystemObject") If fso.FileExists(sFile) = True Then Workbooks.Open Filename:=アドレス Workbooks(cbook).Sheets(csheet).Copy_After:=Workbooks(nbook).Sheets(nsheet) Application.Run (nbook) & "!" & "データ転送"　'転送表示マクロ Application.Run (nbook) & "!" & "シート保護"　'シート保護マクロ UserForm4.Show (vbModeless) Else MsgBox "ファイルが存在しません" End If Exit Sub ErrorHandler: MsgBox "検索表示に失敗しました。入力数字を確認してください。　※一桁の数字は、必ず先頭に０を付けてください。", vbInformation, "検索失敗" Err.Clear End Sub (workbook(表示.xlsm)の標準モジュールに記載) Sub データ転送() Dim bn As String Dim sheetn As String Dim セル1 As String Dim セル2 As String Dim セル3 As String Dim 年 As String Dim 月 As String Dim 日 As String Dim 検索日 As String Dim csheet As String Dim ccell As String Dim psheet As String Dim pcell As String Dim pbook As String Dim cbookad As String bn = "管理表.xlsm" '変更注意 sheetn = "検索" セル1 = "M30" セル2 = "Q30" セル3 = "V30" 年 = Workbooks(bn).Sheets(sheetn).Range(セル1).Value 月 = Workbooks(bn).Sheets(sheetn).Range(セル2).Value 日 = Workbooks(bn).Sheets(sheetn).Range(セル3).Value 検索日 = (年) & (月) & (日) & (235400) cbook = "DB" & (検索日) & ".csv" cbookad = "C:\モニターシステム\管理者用\DB\DB" & (検索日) & ".csv" pbook = "表示.xlsm" csheet = "DB" & (検索日) ccell = "A3:P160" psheet = "管理" pcell = "F10:P160" Workbooks(pbook).Activate Application.ScreenUpdating = False ThisWorkbook.Worksheets("管理").Visible = xlSheetVisible Workbooks.Open Filename:=cbookad Workbooks(cbook).Sheets(csheet).Range(ccell).Copy _ Workbooks(pbook).Sheets(psheet).Range(pcell) Workbooks(cbook).Close savechanges:=False Sheets("記録表").Select Range("A1").Select ThisWorkbook.Worksheets("管理").Visible = xlSheetHidden UserForm14.Show　'終了ボタン Application.ScreenUpdating = True End Sub 汚く拙いマクロで申し訳ありませんが、 宜しくお願いします。