Wendy02 の回答履歴

エクセル2003VBAで時間稼ぎ（待機）をさせたいのですが、 下記のSleepを使用すると、ときどきPCが固まってしまいます。 よい時間稼ぎ方法を御存じないでしょうか。 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Do '開くボタンのハンドルを取得 hOpenButton = FindWindowExA(hwindow, 0, "ToolbarWindow32", vbNullString) Sleep 1000 Loop While hOpenButton = 0

エクセルvbaで、同じ番号の請求書の金額をまとめる方法　2 すみません、前回質問して良い回答をいただいたのですが、こちらの手違いで 用件がひとつぬけていました。 A 　　　B　　　　 I 　　　K 　　　L 　　　 M 11/5 B575 　　　3000　　7500 5000 13500 11/5 B575 　　　4500 　　　　　8500 11/6 B578 　　　3000 　 3000 4000 40000 上記のように　A日付　B請求書番号　I金額　K金額合計　が入力されています。 （IからKにとんでいるのは間違いではありません） M列にも同じようにL列の同じ請求書番号の金額の合計をセルを結合して中央揃えで表示したいのです。 以前のプログラムに加筆することで可能になるでしょうか。 下に貼り付けます。 Dim i As Long, j As Long Dim buf As Variant, ret As Double For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row buf = Val(Cells(i, 9).Value) '修正 If Cells(i, 2).Value <> Cells(i + 1, 2).Value Then If j = 0 Then j = i With Range(Cells(j, 11), Cells(i, 11)) .MergeCells = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With If buf + ret > 0 Then Cells(j, 11).Value = buf + ret End If Cells(j, 11).NumberFormat = "#,##0" ret = 0: j = 0 Else If j = 0 Then j = i ret = buf + ret End If Next ''合計欄 'With Cells(i, 4) '　.NumberFormat = "#,##0" '　.HorizontalAlignment = xlCenter '　.Formula = "= SUM(R1C:R[-1]C)" 'End With ご多忙の中申し訳ございませんがよろしくお願いします。

言語バーのKANAキーを押しても、Alt+ひらがなキーを押しても、何も変わりません。 事務所でPCを買い替えました。 OS：XPpro→XPpro Office：2003Personal→2007 Personal 新しいPCのOffice2007をアンインストールし、2003をインストールしました。 （使い勝手が悪いため） この際、単語登録のデータも移しました。（Microsoft IME辞書からの登録） ライセンス認証済も済ませました。 しかし、今後の書類作成は「Office2007で統一する」ことが決まり、急遽2003をアンインストール。2007をインストールしました。 次の症状で困っています。 Outlook Express、Excel、Word、IEver.6では問題ないのですが、これ以外の操作では文字入力の変更が出来なくなります。 メモ帳やブラウザ（Firefox）の検索入力画面では、 半角カタカナ文字しか入力できない。 又は英数半角文字しか入力できない。 この時、言語バーがIME2003に変わっているようです。 言語バーのKANAキーを押しても、Alt+ひらがなキーを押しても、何も変わりません。 この状態で（言語バーがIME2003）言語バーを右クリック→設定→テキストサービスと入力言語→設定タブ→インストールされているサービス…日本語-キーボード-Microsoft Office IME 2007 この様な状態です。 何とか正常な状態に戻す方法はないものでしょうか。 宜しく願いします。

担任の先生からの暴力 僕は担任の先生から、暴力を受けました。 何をされたのかと言うと、 ・プラスチックの定規(長さは1mです。)で10回近く叩かれた ・肩を力一杯叩かれた ・押し転ばせられた です。 怒られる私にも非はありますが、 物で叩いたり、お尻、頭、ほっぺ以外の所を叩く、押し転ばせる事もおかしいと思います。 私は、担任の先生が大嫌いです。　憎たらしいです。呪ってやりたいぐらい嫌な思いをしました。 他の学級の先生が怒っても、私の学級のように頭を叩く、ビンタをする、お尻を叩く以外をしたのは、見たことがありません。 この事で、先生がおかしくないと言う人に聞きます。 愛があれば、物で人を叩く事は、よい事ですか? 愛があれば、肩を力一杯叩くのは、よい事ですか? 愛があれば、押し転ばせるのはいい事ですか? 長文すみませんでした。

朝三暮四 お馬鹿な質問で申し訳ないのですが、 朝三暮四という言葉でわからないことがあります。 もちろん意味は分かるのですが、 その由来となった故事の意味がわかりません。 広辞苑（第五版）で調べると、 「手飼の猿にトチの実を与えるのに、 朝に三つ暮に四つとしたところ猿たちは少ないと怒り、 朝に四つ暮に三つとしたら大いに喜んだ」 とあります。 猿はなぜ怒り、なぜ喜んだのでしょうか？

担任の先生からの暴力 僕は担任の先生から、暴力を受けました。 何をされたのかと言うと、 ・プラスチックの定規(長さは1mです。)で10回近く叩かれた ・肩を力一杯叩かれた ・押し転ばせられた です。 怒られる私にも非はありますが、 物で叩いたり、お尻、頭、ほっぺ以外の所を叩く、押し転ばせる事もおかしいと思います。 私は、担任の先生が大嫌いです。　憎たらしいです。呪ってやりたいぐらい嫌な思いをしました。 他の学級の先生が怒っても、私の学級のように頭を叩く、ビンタをする、お尻を叩く以外をしたのは、見たことがありません。 この事で、先生がおかしくないと言う人に聞きます。 愛があれば、物で人を叩く事は、よい事ですか? 愛があれば、肩を力一杯叩くのは、よい事ですか? 愛があれば、押し転ばせるのはいい事ですか? 長文すみませんでした。

大学を休学すると友達は出来づらくなりますか？

エクセル2003VBAで時間稼ぎ（待機）をさせたいのですが、 下記のSleepを使用すると、ときどきPCが固まってしまいます。 よい時間稼ぎ方法を御存じないでしょうか。 Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Do '開くボタンのハンドルを取得 hOpenButton = FindWindowExA(hwindow, 0, "ToolbarWindow32", vbNullString) Sleep 1000 Loop While hOpenButton = 0

マクロにてHYPERLINKのアドレスの取得方法を教えてください。 HYPERLINK関数を駆使してリンクを作っています。 =HYPERLINK(CELL("address",INDEX([○○○.xls]△△△シート!$1:$65536,MATCH("文字列",[○○○.xls]△△△シート!$B:$B,),MATCH("文字列",[○○○.xls]△△△シート!4:4,))),表示文字) という感じで別Excelファイルの行と列をMATCH関数を使いアドレスを作成しています。 出来たセルにマウスカーソルを持っていくと [○○○.xls]△△△シート!$AJ$114 アドレスが表示されます。 クリックするとちゃんと飛べます。 アドレスの表示を調べてみたところ Range("A1").Hyperlinks(1).Address というように記述する事で取得出来ると書かれていたので早速試してみたのですが インデックスが有効範囲にありません。と表示されてしまいます。 アドレスを取得するにはどうしたらいいのでしょうか？

エクセルvbaで、同じ番号の請求書の金額をまとめる方法を教えてください。 A B C D 11/5 B575 3000 11/5 B575 4500 11/6 B578 3000 上記のように　A日付　B請求書番号　C請求金額　が入力されています。 D列に同じ請求書番号の合計金額をセルを結合して中央揃えで表示したいのです。 同じ請求書番号は固まって入力されています。ランダムではありません。 同じ請求書番号は最大で５つくらいです。 同じ請求書番号のないものは、D列にC列と同じものを表示します。 行は最大でも100行程度ですが、データの無いところで止まって終了とします。 ご多忙の中申し訳ございませんがよろしくお願いします。

エクセルvbaで、同じ番号の請求書の金額をまとめる方法を教えてください。 A B C D 11/5 B575 3000 11/5 B575 4500 11/6 B578 3000 上記のように　A日付　B請求書番号　C請求金額　が入力されています。 D列に同じ請求書番号の合計金額をセルを結合して中央揃えで表示したいのです。 同じ請求書番号は固まって入力されています。ランダムではありません。 同じ請求書番号は最大で５つくらいです。 同じ請求書番号のないものは、D列にC列と同じものを表示します。 行は最大でも100行程度ですが、データの無いところで止まって終了とします。 ご多忙の中申し訳ございませんがよろしくお願いします。

エクセルのマクロで各Sheetのデータを複数コピー&ペーストしたいです １つのエクセルファイルの中に複数のSheetがあります。 各Sheetの4行目以降（5行目から）にデータのあるA列～O列をコピーしていって、 挿入-ワークシート（Sheet1という名前で構わない）に全てを順番にコピーしていきたいです。 ”新しいマクロの記録”で下記のように作成したのですが、 　・5行目からデータのあるA列～O列をコピーしていく　 　・存在する全てのSheetから上記の作業をする というマクロの書き方が分かりません。 恐れ入りますがお時間ある方で上記の内容をご理解頂ける方がいましたらアドバイス頂ければ非常に助かります。 Sub Macro1() Sheets.Add Sheets("ER10(zy)").Select Rows("5:8").Select Selection.Copy Sheets("Sheet1").Select ActiveSheet.Paste Sheets("ER10(cx)").Select Rows("5:9").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("A5").Select ActiveSheet.Paste Sheets("ER10(zht)").Select Rows("5:13").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("A10").Select ActiveSheet.Paste End Sub

エクセルのマクロで各Sheetのデータを複数コピー&ペーストしたいです １つのエクセルファイルの中に複数のSheetがあります。 各Sheetの4行目以降（5行目から）にデータのあるA列～O列をコピーしていって、 挿入-ワークシート（Sheet1という名前で構わない）に全てを順番にコピーしていきたいです。 ”新しいマクロの記録”で下記のように作成したのですが、 　・5行目からデータのあるA列～O列をコピーしていく　 　・存在する全てのSheetから上記の作業をする というマクロの書き方が分かりません。 恐れ入りますがお時間ある方で上記の内容をご理解頂ける方がいましたらアドバイス頂ければ非常に助かります。 Sub Macro1() Sheets.Add Sheets("ER10(zy)").Select Rows("5:8").Select Selection.Copy Sheets("Sheet1").Select ActiveSheet.Paste Sheets("ER10(cx)").Select Rows("5:9").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("A5").Select ActiveSheet.Paste Sheets("ER10(zht)").Select Rows("5:13").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet1").Select Range("A10").Select ActiveSheet.Paste End Sub

エクセル2003ＶＢＡにて、ファイルを開くダイアログのハンドルを取得したいのですができません。 ファイルを開くダイアログの入力欄に、 ファイルパスを入れようと思っているのですが、 ファイルを開くダイアログのウインドウハンドルが取得できません。 下記コードのhDlgの値が0となってしまいます。 '最前面(ファイルを開くダイアログ)のウィンドウハンドル取得 hDlg = FindWindowA("#32770", "Open") 'ファイル名入力欄のハンドルを取得 hInput = FindWindowExA(hDlg, 0, "Edit", vbNullString) ファイルを開くダイアログのウィンドウハンドルをどうやってとるのか、 教えていただけないでしょうか。 お手数をおかけしますが、どうぞよろしくお願いいたします。

守護霊って、やっぱりいないのでしょうか。 もし、守護霊がいるのなら、どうして事故や事件に巻き込まれる罪の無い人を救ってあげないのか。例えば、オウムの事件の被害に遭った人たちを例に挙げると、どうして彼らの守護霊は、その日、彼らを霞が関に近づけないようにしてあげなかったのか。守護霊がいるとするならば、おかしい話じゃないか。という守護霊の存在を否定する考えもある一方で・・・ 「どう考えても、守護霊様に守っていただいたとしか考えられない」みたいな奇跡経験をされた方もいます。私の身近にもおります。それを「単なる偶然の一致だ」と言ってしまえばそれまでですが。 結局、どっちなんでしょう。 守護霊って存在しないのか、存在するのか。

for～Next 構文の間に処理を追加したい。 ちょっと必要に迫られまして、他人の作ったEXCELマクロをいじらないといけなくなったのですが、小生初心者でどうもうまくいきません。 sheet1に条件を入れて、sheet2のセルに表示された内容をラベルに印刷するというプログラムなのですが、 PrintColum = Worksheets("sheet1").Range("L5").Value MaxGyou = Worksheets("sheet1").Range("L4").Value Maxrow = Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row Gyou = 1 + Worksheets("sheet1").Range("A3").Value Keta = 1 Worksheets("sheet2").Activate For k = 5 To Maxrow Hiduke = Worksheets("sheet1").Range("A" & k).Value ID = Worksheets("sheet1").Range("B" & k).Value Koumoku = Worksheets("sheet1").Range("C" & k).Value Kishaku_Min = Worksheets("sheet1").Range("D" & k).Value Kishaku_Max = Worksheets("sheet1").Range("E" & k).Value Maisu = Worksheets("sheet1").Range("F" & k).Value blank = Worksheets("sheet1").Range("G" & k).Value For i = Kishaku_Max To Kishaku_Min Step -1 For j = 1 To Maisu Keta = Keta + 1 Worksheets("sheet2").Range("A1").Cells(Gyou, Keta + 1).Value = " " & Hiduke & " " & ID & Chr(10) & " " & Koumoku + " 10^" + CStr(i) GyouHyouji = Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Row Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Value = (GyouHyouji - 1) Mod MaxGyou + 1 If Keta > PrintColum Then Keta = 1 Gyou = Gyou + 1 End If Next j Next i Next k Next i　の処理が終了したとき、blankの値が"1"なら、ひとつだけ内容の違うセルを差し込みたいと考えています。 わかる範囲でいろいろ試したのですが、まったくうまくいきません。 どなたかお知恵を拝借できないでしょうか？

エクセル　マクロで配列のインデックスを日付にできますか？ エクセルでマクロを作成中ですが,日付ごとにデータをまとめたくて、日付を配列のインデックスにしたいと思ってますが,そのまま配列に組み込んでもエラーで止まってしまいます。 なにかいい案はありますでしょうか？

Excel 2007 マクロ 日付けを反映 Sheet1とSheet2の同じIDがあれば、Sheet1のC列の商談に入っている日付をSheet2の該当する週に矢印で表示して、矢印の中に商談という文字を入れたいです。 「Sheet1とSheet2の同じIDがあれば」の部分は自分で作成できます。 下記の部分はマクロで実現することは可能でしょうか。実現可能でしたら、お教えください。 「Sheet1のC列の商談に入っている日付をSheet2の該当する週に矢印で表示して、矢印の中に商談という文字を入れたい」 完成図を添付します。

読み終わった本の罪悪感のない処分方法 生きていればたくさんの本を購入する機会があるであろう。そしてそれらが溜まってくると邪魔になってくることもあるであろう。最近の漫画などであれば売ればよいであろうが、たいていの本はそうはいかないであろう。燃えるごみとして捨てるしかないのでしょうか？　教えてください。

スピリチュアルっていっぱいあるの？ スピリチュアルとかスピリチュアリズムっていっぱいあって、みんな好き勝手なことを言っているみたいですが、スピリチュアリズムって思想ですよね？イズムだから。最初そのイズムが立ち上がってから人気が出るに従って便乗犯が横行したんですよね？名前だけ借りとけみたいな。ということは最初に立ち上がったイズムが本当のスピリチュアリズムなわけですよね？