queuerev2 の回答履歴

　ウインドーズＸＰでオフィスは、２００３です。マイコンピューターの中のアイコン全体ををコピーし、ワードかエクセルに貼り付けてトリミングすれば出来ますが、トリミングしなしに簡単に出来る方法があったら教えて下さい。宜しくお願いします。

お世話になります。 Access2000のVBAでコードを作成したのですが、 処理をもっと早く出来る方法ありましたら教えて頂ければと 思います。 処理している内容としては、 (1)データ元のエクセルファイルを開く (2)エクセルファイルに記載されているセルの内容をAccessに挿入 ※取り込み開始・終了が200回程繰り返す ※While (oApp.Sheets(sheet).cells(iRow, 1) <> "")のループは500回程繰り返す 少しでも処理を速くする方法があれば教えて頂きたいので 宜しくお願い致します。 ------------ソース---------------- Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:=CurrentProject.Path & "\メイン.xlsm" ---------------取り込み開始------------- rs2.Open "選手", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 sheet = "program" rs.Open "選手情報_選手ID", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了------------- ---------------取り込み開始------------- rs.Open "選手情報_選手名", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 1 + 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了-------------

お世話になります。 Access2000のVBAでコードを作成したのですが、 処理をもっと早く出来る方法ありましたら教えて頂ければと 思います。 処理している内容としては、 (1)データ元のエクセルファイルを開く (2)エクセルファイルに記載されているセルの内容をAccessに挿入 ※取り込み開始・終了が200回程繰り返す ※While (oApp.Sheets(sheet).cells(iRow, 1) <> "")のループは500回程繰り返す 少しでも処理を速くする方法があれば教えて頂きたいので 宜しくお願い致します。 ------------ソース---------------- Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:=CurrentProject.Path & "\メイン.xlsm" ---------------取り込み開始------------- rs2.Open "選手", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 sheet = "program" rs.Open "選手情報_選手ID", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了------------- ---------------取り込み開始------------- rs.Open "選手情報_選手名", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 1 + 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了-------------

ユーザーフォームを使って検索ツールを作成したい。 たとえば、ワークシート内にこのようなデータがあります。 　A列                B列 1業務分類        問合せ内容 2                単価訂正できない 3                販売契約が登録できない 4                出荷登録でエラー 5財務         仕訳登録でエラー 6                源泉税額はどこに入力するか 7                仮払金を申請するには 8購買         検収でエラー 9                購買依頼が登録できない これを、ユーザーフォームで、 カテゴリ選択・・・コンボボックスで「営業」「財務」「購買」のいずれかを選択する キーワード検索・・・テキストボックスでキーワードを入力する。テキストボックスは2つ用意し、 ラジオボタンでAND条件かOR条件かを選択させる これで、カテゴリ選択で「営業」を選択した場合は、B2:B4の範囲でキーワード検索し、ヒットするセルをアクティブにする。 ヒットするセルが複数ある場合、Enterキーで次にヒットするセルをアクティブにする。 次にヒットするセルがない場合は「検索文字列がありません」などのメッセージを表示する ヒットするセルがひとつも存在しない場合も「検索文字列が存在しません」を表示する 以上のようなツールを作成したいのですが、どのように組んだらよいでしょうか？ ご教示ください。おねがいします。

vbaを使用しメールを送信しようとしております。 以下に記載のように設定をしておりますが、２点設定の方法がわかりかねております。 大変お手数ですが、ご教示いただければ幸いです。 (1)宛先を複数設定したい場合はどのように設定すればよろしいでしょうか。 別々に送るのではなく、宛先にアドレス１、アドレス２を設定し１通のメールで送信をしたいです。 (2)添付ファイルを複数添付したいのですが、宛先によって添付ファイルの数が異なります。 たとえば、宛先Aには添付ファイルが1,2があるが、Bには添付ファイル1のみであり添付ファイル2フィール付度はNULLです。 この場合、エラーになってしまうのですが、"添付ファイルフィールドがnullでも無視してそのまま送信する"と設定はできるのでしょうか。 --------------------------------------- テーブル名：テーブル１ フィールド：アドレス1、アドレス2、件名、本文、添付ファイル1、添付ファイル2 --------------------------------------- Sub SAMPLE_0216() Dim db As DAO.Database Dim R1 As Recordset Dim AP As Object Dim ML As Object Dim L1 As String Set db = CurrentDb Set R1 = db.OpenRecordset("テーブル1") Set AP = CreateObject("Outlook.Application") R1.MoveFirst Do Until R1.EOF 'メールを作成 Set ML = AP.createitem(0) 'アドレスをセット ML.To = R1!アドレス1 '件名をセット ML.Subject = R1!件名 '本文をセット ML.Body = R1!本文 'ファイルを添付1 L1 = R1!添付ファイル1 ML.Attachments.Add L1 'ファイルを添付2 L1 = R1!添付ファイル2 ML.Attachments.Add L1 'メールを送信 ML.Send R1.MoveNext Loop End Sub ----------------------------------------- どうぞよろしくお願いいたします。

現在VBAの勉強中なのですが、string型は値型と参照型どちらでも良いという認識でいいのでしょうか。 本には値型の例として説明されているのですが、ネットで調べてみるとstring型は参照型とされているので混乱しています。

補足情報の追加書き込みがわかりませんので何度もトビを起こしいます。 申し訳ございません。 ↓例で、 G列結合セルを解除して、解除した行にすべてに"●"と入れたいのですがコピーできません。。 ご意見をいただけませんか? ------------ Option Explicit Sub Sample() Dim nRow, i, Addr, tmp Worksheets("Sheet1").Range("D:E,K:K,V:Y,AF:AM").Copy With Worksheets("sheet2") 'Y列も"sheet2"にコピー（G列） .Range("A1").PasteSpecial Paste:=xlPasteValues nRow = .Cells(Rows.Count, 1).End(xlUp).Row 'データのある最終行 For i = 5 To nRow If .Cells(i, 2) = "" Then .Cells(i, 2) = .Cells(i - 1, 2) 'B列 If .Cells(i, 4) = "" Then .Cells(i, 4) = .Cells(i - 1, 4) 'D列 Next i 'Y列（"sheet2"のG列）のデータ分行を追加 For i = nRow To 4 Step -1 'Y列（"sheet2"のG列）にデータがあるか If .Cells(i, 7) <> "" Then tmp = .Cells(i, 7) '-------------ここがうまくいきません。 'G列結合セルを解除して対象行にすべて「OK」と入れる。 If .Cells(i, 7).MergeCells Then Addr = .Cells(i, 7).MergeArea.Address .Cells(i, 7).UnMerge .Range(Addr) = "●" End If '------------ここがうまくいきません。 .Rows(i).Copy .Rows(i).Insert .Cells(i + 1, 3) = "-" .Cells(i + 1, 6) = tmp '.Cells(i, 7) = "●" .Cells(i + 1, 7) = "★" End If Next i 'Y列（"sheet2"のG列）の最後尾列(Q列)への移動 .Columns(7).Cut .Columns(17).Insert End With End Sub

最近オフィスアプリをＭＳＯｆｆｉｃｅからOpenoffice.orgに載せ換えましたが、Ｅｘｃｅｌで使っていたカメラ機能がopenofficeではみつかりません。 どのように処理を行えばよいのかご教授下さい。

Excelを立ち上げ、VBEでThisWorkbookに以下のマクロを記述します。 Dim WithEvents a As Workbook, WithEvents b As Workbook, WithEvents c As Workbook, WithEvents d As Workbook Private Sub Workbook_Open() Stop End Sub ファイルを保存してから起動し、マクロを有効にすると Stop で停止します。 ここで一旦 Stop を削除してから再度 Stop を挿入してから保存します。 再びこのファイルを起動し、マクロを有効にしても Stop で停止しません。 今回は簡単のため Stop にしていますが、実際には起動時の処理が実行されないため困っています。 OSはWindows7,Excelは2007です。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

お世話になります。 タイトルそのままですが、 Outlook 2007のＶＢＡにて デスクトップのvbsファイルを実行するやり方を教えていただけませんでしょうか。 あと、途中で１秒止めるというコードももしいただければありがたいです。 昨日一晩考えたのですが、解決せず…

タスクマネージャーのアプリケーションタグにて、 右クリックでタスク終了する操作をエクセルVBAで行いたいのですが可能でしょうか？ VBAでWebBrowserを使ってネットにアクセスし、データを取得しているのですが、 たまに「スクリプトエラー」が出て中断してしまいます。 スクリプトエラー画面で「はい」もしくは「いいえ」ボタンをマウスでクリックすれば次に進みますが、 とりあえず、VBAで強制的に画面を消して中断しないようにしたいのです。 スクリプトエラーの消し方を調べてIEの設定をいじっては見たのですが、 たまに発生する傾向は変わりませんでした。 スクリプトエラーはタスクマネージャーのアプリケーションタグには表示されます。 （プロセスタグには表示されません。） ネット検索してみると、プロセス終了はありましたが、タスク終了に相当するものは 見つけられませんでした。 なお、ネット検索でAPIのEnumWindows関数を使ってアプリケーションタグに表示されているものの取得までは わかりましたが、終了させる操作はわかりませんでした。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

あるテーブルに数千件のデータがあります。これの１レコードに対して１つのエクセルファイルを作る感じでの処理を考えています。処理はAccessＶＢＡでの作成です。 普通に作ると１ファイル出すのに３秒くらいかかるでしょうか。そうすると5000件とすると、5000*3=15000s。４時間強ですね。 こういう時に何か早くできる方法があったら教えてください。 「普通に作る」とというのはExcelのオブジェクトを作り、そこに値を入れて、保存という流れです。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

エクセル２００７のマクロを修正しています。 ソルバで、オプションの制限時間を設定しており、 制限時間に達した時に、「試行状況の表示」が現れるため、 マクロが途中で停止してしまい、困っております。 「試行状況の表示」が現れる時に、中止（Ｔ）を選択できれば、 目的のマクロになります。いくつかの方法を試したのですが、 うまくマクロが動作しません。 【試した事】 　(1)Dummy Macro()　→　「値の更新」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html 　(2)Function　→　「値の更新」が表示されて止まる。 　参考　http://msdn.microsoft.com/ja-jp/library/office/ff197237.aspx 　(3)Application Display Alerts　→　「試行状況の表示」が表示されて止まる。 　参考　http://okwave.jp/qa/q2630207.html コードを記述しないと、非常に回答し辛い事は、承知しております。 ただ、セキュリティの問題で、生コードは持ち出せません。また、 現在、マクロを勉強中のため、簡易的に書く技術が無く申し訳ございません。 やりたい内容や課題になっている所は、gucchi-you殿の質問と同様だと思います。 http://okwave.jp/qa/q2630207.html この質問は、解決せずに終了しております。 ２週間試行錯誤しましたが、うまくいかずに投稿させて頂きました。 もし、ご回答頂ければ、非常にありがたいです。 お知恵をお貸し下さい。

オアシスのファイル（拡張子OA2）のファイルがあります。 これを何とかWord 2010で開きたいのですが、文字化けのようになってうまくいきません。 Vectorで変換フリーソフトを探しましたが、MS-DOS用でうまく使えませんでした。 OSはWindows7です。 どうするのがいいでしょうか？ よろしくお願いします。

表題のとおり、 絨毯の模様が揺れてみえたことがありました。 一回だけですが、かなりギョッっとしたので ずっと気になっています。 ネットで検索しても、 似たような症状は見つけられませんでした。 もし似たような経験をお持ちのかたや、 原因をご存知の方がいらっしゃったら、 ご体験談や原因をお教えください。 根本的には心因性なのだろうと思っていますが、 たとえばスピリチュアル的な、あるいは 民俗的な伝承などで語られる絨毯の話などもあれば、 そのようなご回答もお待ちしております。 宜しくお願い致します。