maverik1226 の回答履歴

エクセルＶＢＡで作成されたツールがあり、中身を解析 したいのですが初まりがどこからかわかりません。 何を基準に一番最初のコードを初まりと見極めるのでしょうか？

建設業の電気工事業許可取得のための専任技術者と、みなし登録電気工事業者の主任電気工事士は同一人物でいいのでしょうか？ どなたかご回答よろしくお願いします。

●質問の主旨 複数のシートのファイルにおいて最終シートだけをコピーし、 かつそのファイルの標準モジュールも含んだファイルを保存するには、 下記のコードをどのように書き換えたらいいでしょうか？ ご存知のかたご教示願います。 ●コード Sub 保存() Dim flname As String flname = "D:\医療週報\VBA試作\" & Format(Date, "yyyy年mm月") & ".xlsx" ActiveSheet.Copy ActiveWorkbook.SaveAs flname ActiveWorkbook.Close End Sub ●質問の補足 １）マクロで「保存」を実行するときは手作業で必ず最終ページを開いています（アクティブにします）。 ２）上記コードのうち".xlsx"では最終シートだけをコピーできますが、 マクロの保存ができません。また".xlsm"にするとエラーが出ます。 ".xls"にすると複数のシートが全てコピーされた上に、マクロの保存ができていません。 ３）私はVBA初心者です。

●質問の主旨 複数のシートのファイルにおいて最終シートだけをコピーし、 かつそのファイルの標準モジュールも含んだファイルを保存するには、 下記のコードをどのように書き換えたらいいでしょうか？ ご存知のかたご教示願います。 ●コード Sub 保存() Dim flname As String flname = "D:\医療週報\VBA試作\" & Format(Date, "yyyy年mm月") & ".xlsx" ActiveSheet.Copy ActiveWorkbook.SaveAs flname ActiveWorkbook.Close End Sub ●質問の補足 １）マクロで「保存」を実行するときは手作業で必ず最終ページを開いています（アクティブにします）。 ２）上記コードのうち".xlsx"では最終シートだけをコピーできますが、 マクロの保存ができません。また".xlsm"にするとエラーが出ます。 ".xls"にすると複数のシートが全てコピーされた上に、マクロの保存ができていません。 ３）私はVBA初心者です。

テキストボックス1と2があります。 いろいろなデータがあるわけですが、１に大阪と入力すれば、２に難波、１に東京と入力すれば、２に品川と２つのパターンだけ組み合わせが決まっています。 そこで、２にじどうにゅうりょくされるようなコードをご教授くださいませ。 よろしくお願いします。

現在エクセルVBAでWeb画面（社内イントラネット）を、navigateを使って開くところまではできております。 しかし、開いた画面で、「イメージ」という個所をクリックさせる方法がわかりません。 HTMLはほとんどわからないのですが、ソースを見ると、多分このあたりだとおもいます。 <tr><td colspan="2">&nbsp;</td></tr><tr><td colspan="2" id="ImageButton" class="Button" onclick="toImage(this, 'INTRA');" onmouseover="BigOn(this);" onmouseout="BigOff(this);">イメージ</td></tr><tr><td colspan="2" id="KakoButton" class="Button" onclick="toKako(this, 'INTRA');" onmouseover="BigOn(this);" このうち、多分、onclick="toImage(this, 'INTRA');" を実行させればいいのではないかと想像します。 どのような記述になるのか、ご教示いただけましたら幸いです。

テキストボックス1と2があります。 いろいろなデータがあるわけですが、１に大阪と入力すれば、２に難波、１に東京と入力すれば、２に品川と２つのパターンだけ組み合わせが決まっています。 そこで、２にじどうにゅうりょくされるようなコードをご教授くださいませ。 よろしくお願いします。

建設業の会社を経営しています。設立してまだ５年が経過していません。そのため、建設業許可の取得が出来ていません。人から「入札参加申請（物品等）」の登録を薦められています。工事の受注が将来的な目的ですが、登録しておいた方が良いのでしょうか？ その地方行政にもよると思いますが、一般論で結構です。ご教示ください。宜しくお願いいたします。

テキストボックス1と2があります。 いろいろなデータがあるわけですが、１に大阪と入力すれば、２に難波、１に東京と入力すれば、２に品川と２つのパターンだけ組み合わせが決まっています。 そこで、２にじどうにゅうりょくされるようなコードをご教授くださいませ。 よろしくお願いします。

WindowsXP, Excel2007で、ExcelからIE8にキーコードを送りたいです。 ネットで拾った以下のコードにより、 Option Explicit Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Function activate_win(win_name As String) As Long Dim hwindow As Long hwindow = FindWindow(vbNullString, win_name) If hwindow <> 0 Then SetForegroundWindow hwindow activate_win = hwindow End Function Call activate_win("ウィンドウ名") Sendkeys "ABC", True のような形で、メモ帳での動作は確認したのですが、 IEだとウィンドウがアクティブになってくれません。 おそらくウィンドウタイトルを間違えているのだと思われますが、 全角半角などを変えてみたりしても、どう見比べてみても間違いがわかりません。 見た目ではわからない、似た文字だが違うということではないかと思っています。 そこで、開いているアプリのウィンドウ名すべてをメモ帳に書き出すような （あるいは任意のアプリにペーストできるようにするような）コードはないでしょうか？ よろしくお願いします

仕事上システムを作り始めたVBA初心者です。すみませんが、ご教示下さい。 選択した「1の行」のC1をクリックしたときにユーザーフォームを起動させて入力しその行のセルに、数字の1を反映させたいと思っています。 その行は1で終了で今後足していきません。他の行に移ります。 フォームだけは作ってみたのですが反映の仕方がわかりません。 選択項目が多いので、2ページで作りました。 Page1 C1にテキストボックスで「#1」、D1に「#2」(記入ない場合有り)、F1に「#3」(記入ない場合有り)、H1にチェックボックス#4(選択ない場合有り)。 獲得コーナーのI1～Z1まで「Frame1」のグループどれか一組、チェックボックス(I1・J1・K1 3個ずつの連続)。3個中、左以外は記入ない場合有り。いずれかのグループに必ずチェック。 内訳の「Frame2」AA1～AK1のオプションボタン一つ必ず選択。 Page2 「Frame3」AL1、AM1、AN1で、オプションボタン一つ必ず選択。 「Frame4」チェックボックス複数選択「#11」AO1・PO1、 「#12」AQ1・AR1、「#13」AS1、AT1(記入ない場合有り) 「Frame5」AV1～AZ1複数選択 「Frame6」BA1～BC1複数選択 「Frame7」BD1～BE1複数選択 「Frame8」BF1～BI1オプションボタン一つ必ず選択。 選択後右下のコマンドボタンの「OK」ボタンで反映させたいと思っています。 選択セルが全てC列なのですが、複数選択する場所があるのと、シートが1日～31日と多いのです。（中身は全て一緒です。） 何を記入するとその行のセルに反映されるのかわからなかったのでご教示いただきたく思います。

WindowsXP, Excel2007で、ExcelからIE8にキーコードを送りたいです。 ネットで拾った以下のコードにより、 Option Explicit Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Function activate_win(win_name As String) As Long Dim hwindow As Long hwindow = FindWindow(vbNullString, win_name) If hwindow <> 0 Then SetForegroundWindow hwindow activate_win = hwindow End Function Call activate_win("ウィンドウ名") Sendkeys "ABC", True のような形で、メモ帳での動作は確認したのですが、 IEだとウィンドウがアクティブになってくれません。 おそらくウィンドウタイトルを間違えているのだと思われますが、 全角半角などを変えてみたりしても、どう見比べてみても間違いがわかりません。 見た目ではわからない、似た文字だが違うということではないかと思っています。 そこで、開いているアプリのウィンドウ名すべてをメモ帳に書き出すような （あるいは任意のアプリにペーストできるようにするような）コードはないでしょうか？ よろしくお願いします

拗音や促音の半角で1/2の高さのァィゥェォッャュョヮを半角カナに変換したいのです。 エクセル2000です。 一個ずつ置換えする以外に何かよい方法はないでしょうか？ お知恵をお貸しください。

仕事上システムを作り始めたVBA初心者です。すみませんが、ご教示下さい。 選択した「1の行」のC1をクリックしたときにユーザーフォームを起動させて入力しその行のセルに、数字の1を反映させたいと思っています。 その行は1で終了で今後足していきません。他の行に移ります。 フォームだけは作ってみたのですが反映の仕方がわかりません。 選択項目が多いので、2ページで作りました。 Page1 C1にテキストボックスで「#1」、D1に「#2」(記入ない場合有り)、F1に「#3」(記入ない場合有り)、H1にチェックボックス#4(選択ない場合有り)。 獲得コーナーのI1～Z1まで「Frame1」のグループどれか一組、チェックボックス(I1・J1・K1 3個ずつの連続)。3個中、左以外は記入ない場合有り。いずれかのグループに必ずチェック。 内訳の「Frame2」AA1～AK1のオプションボタン一つ必ず選択。 Page2 「Frame3」AL1、AM1、AN1で、オプションボタン一つ必ず選択。 「Frame4」チェックボックス複数選択「#11」AO1・PO1、 「#12」AQ1・AR1、「#13」AS1、AT1(記入ない場合有り) 「Frame5」AV1～AZ1複数選択 「Frame6」BA1～BC1複数選択 「Frame7」BD1～BE1複数選択 「Frame8」BF1～BI1オプションボタン一つ必ず選択。 選択後右下のコマンドボタンの「OK」ボタンで反映させたいと思っています。 選択セルが全てC列なのですが、複数選択する場所があるのと、シートが1日～31日と多いのです。（中身は全て一緒です。） 何を記入するとその行のセルに反映されるのかわからなかったのでご教示いただきたく思います。

こんにちは。 現在、エクセル2007（OS WINXP)にて在庫管理を作成しているのですが、 エクセルファイルを起動してユーザーフォームを 表示した際になぜかマウスカーソルが砂時計のままになってしまいます。 何をしても症状が変わらないので、下記のように新しいBOOKを作成して テストしてみたところ同じ現象が現れました。 １　デスクトップに　新しいフォルダ　を作成 ２　新しいBOOKを作成 ３　VBEにて　UserForm1　を作成 ４　ThisWorkbookのWorkbook_Openに　UserForm1.Show　を記述（これ以外のコードはありません） ５　信頼できる場所に　新しいフォルダ　を登録 ６　新しいBOOKをマクロ有効形式で保存し一旦閉じます ７　新しいBOOKを　新しいフォルダに入れます ８　デスクトップに　新しいBOOK　のショートカットを作成 上記の流れで作成した新しいBOOKをショートカットから開くと Userform1が表示された後からカーソルが砂時計のままになってしまいます。 （UserForm1上では通常カーソルですが、デスクトップに カーソルを合わせると砂時計になっています。） 直接BOOKを開いた場合とフォルダを信頼できる場所に登録せず、 セキュリティオプションからマクロを有効にする手順でUserForm1を表示した場合は 通常カーソルのままです。この現象をご存知の方教えてください。宜しくお願いいたします。 　　

EXCEL2003のVBAを使っています。 オートフィルタで抽出させた表があります。 入力されているセルの、1つ下のセルを選択するにはどうしたら良いでしょうか。 　　　 A 1　　あああ　 2　　あああ　 5　　あああ　　１行目から19行目までの列の中で、"あああ"だけをオートフィルタで抽出している 10　 あああ　 14　 あああ　　 16　 あああ　 20　　 ※　←ここを選択したい。 Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select これだとA17のセルが選択されてしまいます。 表全体の1つ下のセルを選択する方法はあるでしょうか？

仕事上システムを作り始めたVBA初心者です。すみませんが、ご教示下さい。 選択した「1の行」のC1をクリックしたときにユーザーフォームを起動させて入力しその行のセルに、数字の1を反映させたいと思っています。 その行は1で終了で今後足していきません。他の行に移ります。 フォームだけは作ってみたのですが反映の仕方がわかりません。 選択項目が多いので、2ページで作りました。 Page1 C1にテキストボックスで「#1」、D1に「#2」(記入ない場合有り)、F1に「#3」(記入ない場合有り)、H1にチェックボックス#4(選択ない場合有り)。 獲得コーナーのI1～Z1まで「Frame1」のグループどれか一組、チェックボックス(I1・J1・K1 3個ずつの連続)。3個中、左以外は記入ない場合有り。いずれかのグループに必ずチェック。 内訳の「Frame2」AA1～AK1のオプションボタン一つ必ず選択。 Page2 「Frame3」AL1、AM1、AN1で、オプションボタン一つ必ず選択。 「Frame4」チェックボックス複数選択「#11」AO1・PO1、 「#12」AQ1・AR1、「#13」AS1、AT1(記入ない場合有り) 「Frame5」AV1～AZ1複数選択 「Frame6」BA1～BC1複数選択 「Frame7」BD1～BE1複数選択 「Frame8」BF1～BI1オプションボタン一つ必ず選択。 選択後右下のコマンドボタンの「OK」ボタンで反映させたいと思っています。 選択セルが全てC列なのですが、複数選択する場所があるのと、シートが1日～31日と多いのです。（中身は全て一緒です。） 何を記入するとその行のセルに反映されるのかわからなかったのでご教示いただきたく思います。

仕事上システムを作り始めたVBA初心者です。すみませんが、ご教示下さい。 選択した「1の行」のC1をクリックしたときにユーザーフォームを起動させて入力しその行のセルに、数字の1を反映させたいと思っています。 その行は1で終了で今後足していきません。他の行に移ります。 フォームだけは作ってみたのですが反映の仕方がわかりません。 選択項目が多いので、2ページで作りました。 Page1 C1にテキストボックスで「#1」、D1に「#2」(記入ない場合有り)、F1に「#3」(記入ない場合有り)、H1にチェックボックス#4(選択ない場合有り)。 獲得コーナーのI1～Z1まで「Frame1」のグループどれか一組、チェックボックス(I1・J1・K1 3個ずつの連続)。3個中、左以外は記入ない場合有り。いずれかのグループに必ずチェック。 内訳の「Frame2」AA1～AK1のオプションボタン一つ必ず選択。 Page2 「Frame3」AL1、AM1、AN1で、オプションボタン一つ必ず選択。 「Frame4」チェックボックス複数選択「#11」AO1・PO1、 「#12」AQ1・AR1、「#13」AS1、AT1(記入ない場合有り) 「Frame5」AV1～AZ1複数選択 「Frame6」BA1～BC1複数選択 「Frame7」BD1～BE1複数選択 「Frame8」BF1～BI1オプションボタン一つ必ず選択。 選択後右下のコマンドボタンの「OK」ボタンで反映させたいと思っています。 選択セルが全てC列なのですが、複数選択する場所があるのと、シートが1日～31日と多いのです。（中身は全て一緒です。） 何を記入するとその行のセルに反映されるのかわからなかったのでご教示いただきたく思います。

協同組合で建設業許可を申請予定です。 経営業務の管理責任者の要件について ・法人格のある各種の組合等の理事等 ・株式会社及び有限会社の取締役 等ありますが、以下の条件の場合は申請可能でしょうか？ 1.組合の理事で個人事業主。 建設業許可を取っていて現在も営業している。 この理事の名前で組合も申請できませんか？ 若しくは、廃業後なら可能でしょうか？廃業後なら組合員の資格を喪失しているため無理ですか？ また、建設業許可を受けるためには、経営業務の管理責任者が常勤でいなければならないとされて　いますが、組合の職員でなければならないということでしょうか？

Sub テスト() Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").value = _ Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").value End Sub ↑これではデータ１シートのC3:J7の文字や数字だけが転記シートのC3:J7にコピーされるだけで、 セルの色や罫線、フォントの大きさや色、などの設定情報が無視されてしまいます。 なので、文字や数字だけでなく設定情報もコピーできるように ↑のコードを↓のコードに修正していました。 Sub テスト() Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").PasteSpecial Paste:=xlPasteAll, _ Operation:=xlPasteSpecialOperationNone = _ Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").PasteSpecial Paste:=xlPasteAll, _ Operation:=xlPasteSpecialOperationNone End Sub しかし、エラーがでてしまいます。なぜなのでしょうか？