cj_mover の回答履歴

myRow=100 Sheets(strSheetsName1).Rows("1:" & myRow).Copy Sheets(strSheetsName2).Rows(myRow + 1).Insert Shift:=xlDown コピーして、挿入しつつ貼り付け、という作業を繰り返してるのですが、 このマクロを実行している間に、ブラウザ等でコピー貼り付けができなくなってしまいます。 ブラウザ上でコピーしたつもりが、ｖｂａでコピーした情報が、張り付いてしまいます。 なので、コピペではない方法で、行の情報を取得し貼り付け値のですが 何かいい方法はありますか？

myRow=100 Sheets(strSheetsName1).Rows("1:" & myRow).Copy Sheets(strSheetsName2).Rows(myRow + 1).Insert Shift:=xlDown コピーして、挿入しつつ貼り付け、という作業を繰り返してるのですが、 このマクロを実行している間に、ブラウザ等でコピー貼り付けができなくなってしまいます。 ブラウザ上でコピーしたつもりが、ｖｂａでコピーした情報が、張り付いてしまいます。 なので、コピペではない方法で、行の情報を取得し貼り付け値のですが 何かいい方法はありますか？

Ｅｘｃｅｌｌ　ＶＢＡ　にて ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

Ｅｘｃｅｌｌ　ＶＢＡ　にて ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

ワークシートイベント内で、 セルの値に応じて行色を変更する処理をしているのですが、 オートフィルをした場合、 範囲内のセル全てに処理が適応されません 何か解決策はありますでしょうか？

Ｅｘｃｅｌｌ　ＶＢＡ　にて ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

Ｅｘｃｅｌｌ　ＶＢＡ　にて ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

Ｅｘｃｅｌｌ　ＶＢＡ　にて ユーザーフォーム内に［コマンドボタン］を配置し、このボタンにてユーザーフォームの消去およびその他の作業を行うコードを書い動作させています ユーザーフォームの右上隅に表示されている［×］ボタンを表示しない（又は消去する）方法をおしえてください

テキストファイルで保存してある小説の特定の文字をカタカナに置換したいと考えています。 目的） テキスト読み上げソフトで小説を読み上げる際、複数の発音があり読みをうまく登録できない文字を、あらかじめカタカナに置き換えておきたい。 使用ソフト） WORD、テキストエディタ、メモ帳、一括置換ソフト「Devas」 例）　「人」 を「ひと」と発音する場合のみ「ヒト」と置換したい。 　　　（読み上げソフトには「ジン」の読みを登録したのでうまく「ひと」と発音してくれないのを予めカタカナの「ヒト」に置き換えることで回避する、、、という状況をイメージしています。） 例文 　　宇宙に進出した人の文明　←←←これ 　　ビルから数人の警察官が 　　光がなければ人は生きられない　←←←これ 　　政治家や軍人の思惑 　　向こうに人が立っている　←←←これ 　　朝から主人は寝込んでいた 上の3つのみを一度に検索・置換したいということで 「人」の前後がひらがなの場合、読みはだいたい「ひと」なのではと考えました。 （例外があれば後で修正します。） ワイルドカードなどで特定の文字（今回は”人”）の前後にひらがながある場合、全てを1度に検索することはできませんか。 前のみ、後ろのみの場合と、漢字・カタカナの場合も含めて教えて下さい。 ワイルドカードでできなければ、フリーソフトの情報があれば助かります。 検索かけた所 http://www.office-qa.com/Word/wd212.htm この辺りが参考になりそうですが、私にはよくわかりませんでした。 ご存じの方、何卒よろしくお願い致します。

テキストファイルで保存してある小説の特定の文字をカタカナに置換したいと考えています。 目的） テキスト読み上げソフトで小説を読み上げる際、複数の発音があり読みをうまく登録できない文字を、あらかじめカタカナに置き換えておきたい。 使用ソフト） WORD、テキストエディタ、メモ帳、一括置換ソフト「Devas」 例）　「人」 を「ひと」と発音する場合のみ「ヒト」と置換したい。 　　　（読み上げソフトには「ジン」の読みを登録したのでうまく「ひと」と発音してくれないのを予めカタカナの「ヒト」に置き換えることで回避する、、、という状況をイメージしています。） 例文 　　宇宙に進出した人の文明　←←←これ 　　ビルから数人の警察官が 　　光がなければ人は生きられない　←←←これ 　　政治家や軍人の思惑 　　向こうに人が立っている　←←←これ 　　朝から主人は寝込んでいた 上の3つのみを一度に検索・置換したいということで 「人」の前後がひらがなの場合、読みはだいたい「ひと」なのではと考えました。 （例外があれば後で修正します。） ワイルドカードなどで特定の文字（今回は”人”）の前後にひらがながある場合、全てを1度に検索することはできませんか。 前のみ、後ろのみの場合と、漢字・カタカナの場合も含めて教えて下さい。 ワイルドカードでできなければ、フリーソフトの情報があれば助かります。 検索かけた所 http://www.office-qa.com/Word/wd212.htm この辺りが参考になりそうですが、私にはよくわかりませんでした。 ご存じの方、何卒よろしくお願い致します。

テキストファイルで保存してある小説の特定の文字をカタカナに置換したいと考えています。 目的） テキスト読み上げソフトで小説を読み上げる際、複数の発音があり読みをうまく登録できない文字を、あらかじめカタカナに置き換えておきたい。 使用ソフト） WORD、テキストエディタ、メモ帳、一括置換ソフト「Devas」 例）　「人」 を「ひと」と発音する場合のみ「ヒト」と置換したい。 　　　（読み上げソフトには「ジン」の読みを登録したのでうまく「ひと」と発音してくれないのを予めカタカナの「ヒト」に置き換えることで回避する、、、という状況をイメージしています。） 例文 　　宇宙に進出した人の文明　←←←これ 　　ビルから数人の警察官が 　　光がなければ人は生きられない　←←←これ 　　政治家や軍人の思惑 　　向こうに人が立っている　←←←これ 　　朝から主人は寝込んでいた 上の3つのみを一度に検索・置換したいということで 「人」の前後がひらがなの場合、読みはだいたい「ひと」なのではと考えました。 （例外があれば後で修正します。） ワイルドカードなどで特定の文字（今回は”人”）の前後にひらがながある場合、全てを1度に検索することはできませんか。 前のみ、後ろのみの場合と、漢字・カタカナの場合も含めて教えて下さい。 ワイルドカードでできなければ、フリーソフトの情報があれば助かります。 検索かけた所 http://www.office-qa.com/Word/wd212.htm この辺りが参考になりそうですが、私にはよくわかりませんでした。 ご存じの方、何卒よろしくお願い致します。

上の行から順に、セルに http://aaag/1.jpg http://aaag/2.jpg http://aaag/3.jpg という風にjpgの前の数字を1つづつ増やすというマクロを作りたいと考えています。 マクロの設定をいままで、したことがありません。最初から順に教えてください。

上の行から順に、セルに http://aaag/1.jpg http://aaag/2.jpg http://aaag/3.jpg という風にjpgの前の数字を1つづつ増やすというマクロを作りたいと考えています。 マクロの設定をいままで、したことがありません。最初から順に教えてください。

dim tbl(20) as string として、２桁の数字を保存しています。 （同じ数字は存在しません） 一度フル（21個）に格納したあと、条件を与えて合致する数字を" "で置き換え、消し込んでいきます。 （コレは先ほど教えていただいたので出来ます。） 例えば、 1214152926323338,,,,,,　で、「15」を与えた場合、 結果を、 1214 2926323338,,,,,,　と。 ここからが質問です。 この配列にあと何個の数字(1個は2桁）が残っているかカウントしたいのです。 例えば、3個消し込みされていれば18となります。 （21-3という計算はやりたくなく、配列の数字部分をカウントしたいのです。） 宜しくお願いします。

vbaにて勤怠表を作っているのですが、時刻と時間の区別はどのようにするのでしょうか。 初歩的な質問でしたら、どうかご容赦ください。 項目には出勤時間、休憩時間、退勤時間、勤務時間、他（省略します）があるのですが、 退勤時間から出勤時間を引いた時間をmyTimeとして、myTimeに応じて休憩時間の判定を行ないたいです。 myTimeが４時間未満で休憩時間０分 ４時間以上６時間未満で休憩時間３０分 ６時間以上８時間未満で休憩時間４５分 ８時間以上で休憩時間は１時間 の時間を休憩時間セルに入力させたいのですが、myTimeが時刻から変えられず困っています。 恐らく、８時より前か後か、といったような判断をしているのだと思います。 ちなみにセルには別のExcel関数が入っていて、マクロを実行するときに関数を無視して（上書きして）入力させたいので、Excel関数での提案は今の所考えておりません。 コードの書き方を教えてくださいませんでしょうか。 現在の表記がh：mmになっている為、これで統一出来れば嬉しいです。 このあと勤務時間の集計も行なう為、時間の計算方法なども教えて頂けると助かります。 （一応自力で調べてみてはいるものの、まだ理解には及びません。） Dim STAR_TIME As Date Dim RECESS_TIME As Date Dim myTime As Date STAR_TIME = Cells(0, STAR_CL)　　　'出勤時間の行です LAST_TIME = Cells(0, LAST_CL)　　　'退勤時間の行です myTime = LAST_TIME - STAR_TIME With Cells(0,RECESS_CL)　　'休憩時間の行です If myTime >= Format(Time, "8:00") Then .Value = Format(Time, "1:00") ElseIf Format(Time, "8:00") > myTime And myTime >= Format(Time, "6:00") Then .Value = Format(Time, "00:45") ElseIf Format(Time, "6:00") > myTime And myTime >= Format(Time, "4:00") Then .Value = Format(Time, "00:30") ElseIf Format(Time, "4:00") >= myTime Then .Value = Format(Time, "0:00") End If End With 記号（大なり、小なり）の挙動もいまいち理解出来ていません。 何度も試してみて今の位置にしてみたのですが、 いろいろ試して変えまくって、なんだかよく分からなくなってきました。正直合っている気はしないです。 実際にはもうすこし長いコードですが、必要そうな所だけ書き出しました。 私のミスで足りないところがあるかもしれません。必要であれば書き足します。 作成はExcel for mac 2011ですが、 実際に運用するのはWindowsの各Excelバージョン（複数）の為、 互換性のあるコードで教えてください。宜しくお願い致します。

vbaにて勤怠表を作っているのですが、時刻と時間の区別はどのようにするのでしょうか。 初歩的な質問でしたら、どうかご容赦ください。 項目には出勤時間、休憩時間、退勤時間、勤務時間、他（省略します）があるのですが、 退勤時間から出勤時間を引いた時間をmyTimeとして、myTimeに応じて休憩時間の判定を行ないたいです。 myTimeが４時間未満で休憩時間０分 ４時間以上６時間未満で休憩時間３０分 ６時間以上８時間未満で休憩時間４５分 ８時間以上で休憩時間は１時間 の時間を休憩時間セルに入力させたいのですが、myTimeが時刻から変えられず困っています。 恐らく、８時より前か後か、といったような判断をしているのだと思います。 ちなみにセルには別のExcel関数が入っていて、マクロを実行するときに関数を無視して（上書きして）入力させたいので、Excel関数での提案は今の所考えておりません。 コードの書き方を教えてくださいませんでしょうか。 現在の表記がh：mmになっている為、これで統一出来れば嬉しいです。 このあと勤務時間の集計も行なう為、時間の計算方法なども教えて頂けると助かります。 （一応自力で調べてみてはいるものの、まだ理解には及びません。） Dim STAR_TIME As Date Dim RECESS_TIME As Date Dim myTime As Date STAR_TIME = Cells(0, STAR_CL)　　　'出勤時間の行です LAST_TIME = Cells(0, LAST_CL)　　　'退勤時間の行です myTime = LAST_TIME - STAR_TIME With Cells(0,RECESS_CL)　　'休憩時間の行です If myTime >= Format(Time, "8:00") Then .Value = Format(Time, "1:00") ElseIf Format(Time, "8:00") > myTime And myTime >= Format(Time, "6:00") Then .Value = Format(Time, "00:45") ElseIf Format(Time, "6:00") > myTime And myTime >= Format(Time, "4:00") Then .Value = Format(Time, "00:30") ElseIf Format(Time, "4:00") >= myTime Then .Value = Format(Time, "0:00") End If End With 記号（大なり、小なり）の挙動もいまいち理解出来ていません。 何度も試してみて今の位置にしてみたのですが、 いろいろ試して変えまくって、なんだかよく分からなくなってきました。正直合っている気はしないです。 実際にはもうすこし長いコードですが、必要そうな所だけ書き出しました。 私のミスで足りないところがあるかもしれません。必要であれば書き足します。 作成はExcel for mac 2011ですが、 実際に運用するのはWindowsの各Excelバージョン（複数）の為、 互換性のあるコードで教えてください。宜しくお願い致します。

たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。正しくは「ワケ　トシヨ」です。「和家」を「ワケ」と読ませるようにできるのでしょうか。

エクセルの「検索と置換」を Application.Dialogs(xlDialogFormulaFind).Show で出現させて検索の作業をしています。 作業後に「検索と置換」の画面をマクロで消したいのですが どのようなコードになるでしょうか。 宜しくお願いいたします。

たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。正しくは「ワケ　トシヨ」です。「和家」を「ワケ」と読ませるようにできるのでしょうか。

たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。正しくは「ワケ　トシヨ」です。「和家」を「ワケ」と読ませるようにできるのでしょうか。