cj_mover の回答履歴

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

Win７、Excel２０１０使用。 VBAにて下記のコードを作成。 シート内のある範囲において、セル中に漢字と数字（算用）が 混在した文字列があり、Replaceにて数字を取り除く為に作成 しましたが、実行したところ、正常に動作して全て取り除ける場合と、 そのまま数字が全て残る場合があります。 指定した範囲は、別のブックから値のみコピーして 貼り付けたもので、書式は「標準」にしています。 ※元データも「標準」の文字列です。 下記コード以外でもいくつか試しましたが、改善見られなかっ為、 コードの問題ではなく、文字列の問題なのかなとも思いましたが、 よくわかりませんでした。 解決策などがありましたら教えて頂けると助かります。 よろしくお願いします。 ＝（VBAコード）＝ Sub NumDell() '余分な数字を削除します。 Application.Calculation = xlCalculationManual Dim r As Long Dim c As Long Dim i As Long 　Call hen　'Public変数を設定。単独実行時のみ For r = 53 To Lr2 Step 2 For c = 3 To dc If c = 9 Then Stop End If With Cells(r, c) For i = 1 To 9 .Replace CStr(i), "" .Replace StrConv(CStr(i), vbNarrow), "" Next i End With Next c Next r Application.Calculation = xlCalculationAutomatic End Sub ------------------------- ※変数は、関連コードあるため、Public変数を使用しています。

Excel2013のVBAで Sub Sample1() Sheets(Array("Sheet1", "Sheet3")).Select End Sub 　と何枚かのシートをグループ化しているとします。グループ化していないシートもあります。 ただし、これらのシートにはウィンドウ枠の固定をしています。 これらのグループ化を適応したシートのウインドウの位置を左上に戻して、枠を固定した外側も左上に戻したいです。左上になっても、固定化していないところは戻らなかったり、sheet1だけ戻ったりしてうまくいきません。 お願いします。

Excel2013のVBAで Sub Sample1() Sheets(Array("Sheet1", "Sheet3")).Select End Sub 　と何枚かのシートをグループ化しているとします。グループ化していないシートもあります。 ただし、これらのシートにはウィンドウ枠の固定をしています。 これらのグループ化を適応したシートのウインドウの位置を左上に戻して、枠を固定した外側も左上に戻したいです。左上になっても、固定化していないところは戻らなかったり、sheet1だけ戻ったりしてうまくいきません。 お願いします。

お世話になります。 I列の数字の小数点をカンマにしたいです。　（例：　1007.25　を1007,25にする） 通貨のユーロ表記にするためです。 今までは下記のような関数を使っていました。 =SUBSTITUTE(FIXED(I2,2),".",",") ところが、今日1,007,25 と桁の,も入ってしまっていることがわかりました。 1007,25 と表示したいです。 よろしくお願いします。

初心者です。 エクセル2010を使用しています。 社内のエクセルシートで工事の依頼を物件ごとに記入していきます。（A:N） 工事完了後、（A:N）に色を付けます。 毎回パレットで選んでいます。色番は16777164 マクロで一連の動作を記憶させ、ボタン一つで出来るようには作れたのですが、元々色の付いている箇所だけはそのままの色にしたいのです。 元々色がついてる理由ですが、工事には材料が必要なのですが、仕入れて請求が来るのが月末となります。金額の入力を忘れない為に色を付けています。 そういった場合はどのようなプログラムになるのでしょうか。 ご教示お願い致します。

初心者です。 エクセル2010を使用しています。 社内のエクセルシートで工事の依頼を物件ごとに記入していきます。（A:N） 工事完了後、（A:N）に色を付けます。 毎回パレットで選んでいます。色番は16777164 マクロで一連の動作を記憶させ、ボタン一つで出来るようには作れたのですが、元々色の付いている箇所だけはそのままの色にしたいのです。 元々色がついてる理由ですが、工事には材料が必要なのですが、仕入れて請求が来るのが月末となります。金額の入力を忘れない為に色を付けています。 そういった場合はどのようなプログラムになるのでしょうか。 ご教示お願い致します。

win8.1でvbaでブラウザを操作しています。 ＸＰからＷＩＮ７までは、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Navigate "http://shopping.yahoo.co.jp/" ・・・ このように、 objIE.Navigate に、ＵＲＬを入れ替えても、問題なく表示できたのですが ｗｉｎ８からは objIE.Navigateで、１つ目のＵＲＬを表示させ、２つ目のＵＲＬを表示させると、 見た目は、 二つ目の"http://shopping.yahoo.co.jp/"が表示されるのですが、 objIEの中身は、１つ目の "http://www.yahoo.co.jp/"のままです。 なので、 objIE.Navigate "http://shopping.yahoo.co.jp/" のあとに、 Do While objIE.Busy = True DoEvents Loop をしても、 objIEに格納されている値は、 "http://www.yahoo.co.jp/"だから 無限ループしてしまいます。 この現象を回避するにはどうすればいいでしょうか？ エクセル２０10です。 よろしくお願いします。

選択範囲内の空白セル全てに同じ文字を入力するマクロを教えていただけるとありがたいです。よろしくお願いします。

下記のようなデータがあります。 「名前」「内容」「日時」 田中　　報告1　　日時 田中　　報告2　　日時 田中　　報告3　　日時 吉田　　報告1　　日時 吉田　　報告2　　日時 佐々木　報告1　　日時 藤森　　報告1　　日時 藤森　　報告2　　日時 豊富　　報告1　　日時 豊富　　報告2　　日時 16000件あり、同一名で重複行を消すと5000件になります。 このデータを下記の通り、同じ人物の報告は1行のデータに変換したいです。 ↓名前が同一だったら内容と日時を全て繋げて1つのフィールドに入れる 「名前」「内容」 田中　　[日時:報告1、日時:報告2、日時:報告3] 吉田　　[日時:報告1、日時:報告2] 佐々木　[日時:報告1] 藤森　　[日時:報告1、日時:報告2] 豊富　　[日時:報告1、日時:報告2] 関数を駆使して出来るのでしょうか。 マクロでしょうか。 お知恵をお貸しください。 尚、解りやすいように報告1、報告2と数字を付けていますが、 実際のデータには数字は付いていません。 何卒、宜しくお願い致します。

下記のようなデータがあります。 「名前」「内容」「日時」 田中　　報告1　　日時 田中　　報告2　　日時 田中　　報告3　　日時 吉田　　報告1　　日時 吉田　　報告2　　日時 佐々木　報告1　　日時 藤森　　報告1　　日時 藤森　　報告2　　日時 豊富　　報告1　　日時 豊富　　報告2　　日時 16000件あり、同一名で重複行を消すと5000件になります。 このデータを下記の通り、同じ人物の報告は1行のデータに変換したいです。 ↓名前が同一だったら内容と日時を全て繋げて1つのフィールドに入れる 「名前」「内容」 田中　　[日時:報告1、日時:報告2、日時:報告3] 吉田　　[日時:報告1、日時:報告2] 佐々木　[日時:報告1] 藤森　　[日時:報告1、日時:報告2] 豊富　　[日時:報告1、日時:報告2] 関数を駆使して出来るのでしょうか。 マクロでしょうか。 お知恵をお貸しください。 尚、解りやすいように報告1、報告2と数字を付けていますが、 実際のデータには数字は付いていません。 何卒、宜しくお願い致します。

win8.1でvbaでブラウザを操作しています。 ＸＰからＷＩＮ７までは、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Navigate "http://shopping.yahoo.co.jp/" ・・・ このように、 objIE.Navigate に、ＵＲＬを入れ替えても、問題なく表示できたのですが ｗｉｎ８からは objIE.Navigateで、１つ目のＵＲＬを表示させ、２つ目のＵＲＬを表示させると、 見た目は、 二つ目の"http://shopping.yahoo.co.jp/"が表示されるのですが、 objIEの中身は、１つ目の "http://www.yahoo.co.jp/"のままです。 なので、 objIE.Navigate "http://shopping.yahoo.co.jp/" のあとに、 Do While objIE.Busy = True DoEvents Loop をしても、 objIEに格納されている値は、 "http://www.yahoo.co.jp/"だから 無限ループしてしまいます。 この現象を回避するにはどうすればいいでしょうか？ エクセル２０10です。 よろしくお願いします。

早速ですが、 シート1　行　3.000から4000.列　セル式　Ｈ-AM　まで シート2　行　3.000から4000.列　セル式　Ｈ-W　まで シート3　行　3.000から4000.列　セル式　Ｈ-AO　まで このような、BOOKが有ります。 データの追加（各シートのＡ-Ｇ　1行追加）に伴い　シート1から　3まで　セル式の計算が行われます。 で、計算が済んだあと、セルの変化をとらえて、次のアクションを起こすのですが、 セル式が完了するまで、時間を稼ぎたいのですが、 今は、タイマーで act時刻 = Now ａｃｔ時刻 = DateAdd("n", 2, act時刻 ) 待ち時間 = DateAdd("s", 20, act時刻 ) Application.OnTime act時刻 , "ｎｅｘｔ-job", 待ち時間 このタイマーが不正確（動作したりしなかったり）で　上の式は　2分待ちですが　1分以下だと　100％起動せず、 1分40秒以上でどうやら・・・ で、タイマー以外で　 シートにデータ送り込むＶＢＡ（15分毎のタイマー）の続きに　計算完了、もしくは、セル式の仕事を止めないで、セル式計算完了を　まって、”ｎｅｘｔ-job”　の　仕事をさせたいのですが セル式の仕事を止めない時間稼ぎは無いでしょうか　

win8.1でvbaでブラウザを操作しています。 ＸＰからＷＩＮ７までは、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop objIE.Navigate "http://shopping.yahoo.co.jp/" ・・・ このように、 objIE.Navigate に、ＵＲＬを入れ替えても、問題なく表示できたのですが ｗｉｎ８からは objIE.Navigateで、１つ目のＵＲＬを表示させ、２つ目のＵＲＬを表示させると、 見た目は、 二つ目の"http://shopping.yahoo.co.jp/"が表示されるのですが、 objIEの中身は、１つ目の "http://www.yahoo.co.jp/"のままです。 なので、 objIE.Navigate "http://shopping.yahoo.co.jp/" のあとに、 Do While objIE.Busy = True DoEvents Loop をしても、 objIEに格納されている値は、 "http://www.yahoo.co.jp/"だから 無限ループしてしまいます。 この現象を回避するにはどうすればいいでしょうか？ エクセル２０10です。 よろしくお願いします。

どなたか、エクセル教えてください。 現在のリストから、削除したい一覧一を気に消したい ネットショップをやっていて「関連商品」リストを作っているのですが、、 その中で廃番が出てきます。 その廃番リストを一気に関連商品から消したいと思っています。 わかりづらいと思うので、やりたい事の画像を添付します。 １個１個置換していくと　数百個あるので超めんどくさくて どなたか、助けて下さい！どなたか、エクセル教えてください。 「廃番」リストの一覧を簡単に 「関連商品」リストから消し去る方法どなたか教えてもらえませんか？ わかりづらいと思うので、やりたい事のエクセルデータを付けます。 １個１個置換していくと　数百個あるので超めんどくさくて どなたか、助けて下さい！

お世話になります。 平成○○年○月 　　　　Ａ　　Ｂ　C 　D 　E 　 F 　G　 １　　　月　火　水　木　金　土　日 ２　　　○　○　○　○　○　○　○ ３　　　○　○　○　○　○　○　○ ４　　　○　○　○　○　○　○　○ ５　　　○　○　○　○　○　○　○ ６　　　○　○　○　○　○　○　○ 上記のようなデータがあり、条件付き書式のルールで土曜日と日曜日のセル（Ｆ２からＦ６とＧ２からＧ６）、にはセルに色がついています。マクロをつかって、色のついたセルの〇を自動で消したいのですが、そういうことは可能でしょうか？　ちなみに月日を変えると曜日は自動で変わるようになっています。 よろしくお願いします。

早速ですが、 シート1　行　3.000から4000.列　セル式　Ｈ-AM　まで シート2　行　3.000から4000.列　セル式　Ｈ-W　まで シート3　行　3.000から4000.列　セル式　Ｈ-AO　まで このような、BOOKが有ります。 データの追加（各シートのＡ-Ｇ　1行追加）に伴い　シート1から　3まで　セル式の計算が行われます。 で、計算が済んだあと、セルの変化をとらえて、次のアクションを起こすのですが、 セル式が完了するまで、時間を稼ぎたいのですが、 今は、タイマーで act時刻 = Now ａｃｔ時刻 = DateAdd("n", 2, act時刻 ) 待ち時間 = DateAdd("s", 20, act時刻 ) Application.OnTime act時刻 , "ｎｅｘｔ-job", 待ち時間 このタイマーが不正確（動作したりしなかったり）で　上の式は　2分待ちですが　1分以下だと　100％起動せず、 1分40秒以上でどうやら・・・ で、タイマー以外で　 シートにデータ送り込むＶＢＡ（15分毎のタイマー）の続きに　計算完了、もしくは、セル式の仕事を止めないで、セル式計算完了を　まって、”ｎｅｘｔ-job”　の　仕事をさせたいのですが セル式の仕事を止めない時間稼ぎは無いでしょうか　

早速ですが、 シート1　行　3.000から4000.列　セル式　Ｈ-AM　まで シート2　行　3.000から4000.列　セル式　Ｈ-W　まで シート3　行　3.000から4000.列　セル式　Ｈ-AO　まで このような、BOOKが有ります。 データの追加（各シートのＡ-Ｇ　1行追加）に伴い　シート1から　3まで　セル式の計算が行われます。 で、計算が済んだあと、セルの変化をとらえて、次のアクションを起こすのですが、 セル式が完了するまで、時間を稼ぎたいのですが、 今は、タイマーで act時刻 = Now ａｃｔ時刻 = DateAdd("n", 2, act時刻 ) 待ち時間 = DateAdd("s", 20, act時刻 ) Application.OnTime act時刻 , "ｎｅｘｔ-job", 待ち時間 このタイマーが不正確（動作したりしなかったり）で　上の式は　2分待ちですが　1分以下だと　100％起動せず、 1分40秒以上でどうやら・・・ で、タイマー以外で　 シートにデータ送り込むＶＢＡ（15分毎のタイマー）の続きに　計算完了、もしくは、セル式の仕事を止めないで、セル式計算完了を　まって、”ｎｅｘｔ-job”　の　仕事をさせたいのですが セル式の仕事を止めない時間稼ぎは無いでしょうか　

すべてのシートを保護してくれるマクロを教えてほしいのですが、機能として 「ロックされていないセル範囲の選択」と「セルの書式設定」の二つの機能を許可したものを教えてください。また、逆にすべてのシートの保護を解除するマクロもお願いします。 エクセル初心者のため、見当はずれなことを聞いていたら申し訳ありませんが、いくら探しても上記のようなものを探すことができず、、、。シートが80ほどあるもので、困り果てています。 よろしくお願いします。

数日前にココに質問させていただいて、回答をもらえたのですが 私の説明不足で、よい結果が得られなかったので、もう一度質問させていただきます countif関数で範囲を等間隔にしたいです、と質問したところ =SUMPRODUCT((A1:A1000="あ")*(MOD(ROW(A1:A1000),10)=1)) との回答をいただきました 残念ながら、都合でその数式が書かれているセルが 範囲の中に入ってしまっていて、循環になってしまいます 範囲を等間隔に出来れば循環にならないと思い質問させていただいたのですが そこを書かなかったので、望みの数式になりませんでした 循環にならない方法で何とかなりませんでしょうか？