Excel VBA 質問スレ Part69

1 名前：デフォルトの名無しさん mailto:sage [2020/12/13(日) 00:22:23.67 ID:Fd224klc0.net] !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part68 https://mevius.5ch.net/test/read.cgi/tech/1598756127/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 152 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:26:47.99 ID:NKmqU0kK0.net] 思ったんだが、そのコード自分で読み込んだり動き確認したりしてないだろう… 153 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:30:16.32 ID:9/T630Lp0.net] 質問するのが趣味なんだろ 154 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 16:53:27.47 ID:dODwImwo0.net] 読み仮名でソートすればいいんでないの エクセルの並び替えもこうなるし お 大学(おおきいで変換) か だ 大学(だいで変換) ぢ 155 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:16:49.35 ID:eRbfzaAa0.net] すいません！ 質問するレベルにも到達してなくて シート上で一致させるなら簡単ですね 質問が趣味ではないのですが 業務で必要なもので初心者ながら悪戦苦闘しています 質問のしかたが悪かったと思います ちょっと考えて質問したいと思います 156 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:20:31.42 ID:U6Tn+IN30.net] いつものあいつだろ 157 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:24:55.74 ID:NKmqU0kK0.net] いつものやつだった・・・ 158 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:26:09.51 ID:eRbfzaAa0.net] 前に質問した時も 誰かと勘違いされたような・・・ 誰ですか？ VBAスレには ４回ぐらいしか書き込んだりしてないのですが？ どういった人と勘違いしてるんですか？ 荒らしみたいな人いるんですか？ 159 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 18:57:29.26 ID:lS8hY7UX0.net] 話題に上ると嬉しそうに反応すんなよｗ 160 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 20:40:10.06 ID:eRbfzaAa0.net] >>159 だからここには４回ぐらいしか来たことない どういったら信じてくれるのかな 初めてだわ 荒らしと間違えられたの どんな荒らしなの？ 普通に書き込んでるつもりなんだけど？ 何か気に入らなかった？ ３日前ぐらいに書き込んだ時も勘違いされたけど ホント勘弁して 161 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:12:23.41 ID:DC9TsoaB0.net] 荒らしと同じようなことを書くから間違われるのでは？ 162 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:16:06.03 ID:mchvBN/f0.net] 真っ赤な帽子にキラリとヒカル 163 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:16:31.70 ID:eRbfzaAa0.net] >>161 どこがどう悪かったのか教えてください 164 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 22:29:26.63 ID:dODwImwo0.net] おかしな事言う人がいるな でスルーしてたらいいと思うよ 今のままだと思うツボ 165 名前：デフォルトの名無しさん mailto:sage [2020/12/29(火) 23:51:56.35 ID:xvN7YPpo0.net] >>78 わからぬ。ホムペとかに時々セミナーの写真とか載ってるからそれを見て判断 性格まで瓜二つだからすぐわかるぜw 166 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 01:27:15.02 ID:RXqudRq00.net] 俺も前になんかの質問したときにいつものアイツって言われた事があったから逆になんでもかんでもいつものアイツって言いたがる荒らしが常駐してるもんだと思ってた 167 名前：144 mailto:sage [2020/12/30(水) 01:52:55.19 ID:Oh92F1JH0.net] シートを開くと「オブジェクトが必要です。」だの「メソッドまたはデータメンバが見つかりません。」だのと表示されるんですけど、特に修正することもなく動作している(ように見える)んですけど、これ何が悪いんですかね？ 168 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 03:31:25.87 ID:AqLm+Pp2M.net] PERSONALに余計な書き込みしちまっつてるんじゃね。 再表示させて全部消すんだ。 169 名前：144 mailto:sage [2020/12/30(水) 03:53:07.20 ID:Oh92F1JH0.net] Personal.xlsですかね？ 探 170 名前：しましたがそもそもファイル自体存在しないみたいです…… [] [ここ壊れてます] 171 名前：144 mailto:sage [2020/12/30(水) 03:58:33.29 ID:Oh92F1JH0.net] なんかよく分かんないんですけどエラー行で指定してたコンボボックスを消して再設置したら直りました 助言ありがとうございました 172 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 05:38:22.32 ID:AqLm+Pp2M.net] 毎回コンボボックス言ってるなあんた 173 名前：144 mailto:sage [2020/12/30(水) 05:47:42.87 ID:Oh92F1JH0.net] なんかコンボボックスってクセ強くないですか？ すごく弄りにくくてややこしいです 174 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 08:41:09.68 ID:mfFqR3/N0.net] クセ強いって言うか、1クリックで2回イベント発動するのがなぁ・・ いちいちIf Flag Then Exit Sub とかいれて、 無理矢理1回しか動かないようにしてるけど、 他にいい方法ないもんかね 175 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 08:43:56.99 ID:mfFqR3/N0.net] あ、直前に Flag = Not Flag な 176 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 11:23:33.25 ID:hFnpG/QKH.net] >>173 イベントハンドラは必ず先頭でEnableEvents=Falseするんだよ そして時間のかかる処理はハンドラの中へ書かずに別プロシージャに飛ばす 177 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 13:02:57.82 ID:mfFqR3/N0.net] >>175 ごめん、1クリックで2回じゃなくて、 選択肢の表示で1回、選択で1回で計2回の間違い なのでイベントOFFで逃げられない 178 名前：デフォルトの名無しさん mailto:sage [2020/12/30(水) 16:14:15.56 ID:8iwO+LiN0.net] 状態管理用のフラグ作って管理している 179 名前：144 mailto:sage [2020/12/30(水) 23:59:22.86 ID:Oh92F1JH0.net] >>173 マジすか もしかしてDropButtonClickイベントに.Clearと.AddItemを入れたら選択してもボックス内に表示されなかったりするのって原因それですかね 180 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:04:03.76 ID:qAEGulJg0.net] >>178 そういうの作りながら動作確認しないの？ 181 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:17:09.79 ID:sAh4R5unH.net] ネットにサンプルがいくらでも転がってんだから、素直にコピペしとけばいいのに 182 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 08:39:17.53 ID:5hauEQny0.net] 直ぐにネットの野良コードを見て何も考えずにコピペコピペする人は決して【上級者】ではありません！(ｷﾘ 183 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 10:43:23.83 ID:yfYCC+Dx0.net] >>178 多分そう >>179 最初はそんな罠があると思わないからな 俺は、間にMsgBox入れたら2回出たのでやっと気づいたわ 184 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 10:53:25.38 ID:8vAoqqdn0.net] 罠なんてのは理解してる人間が陥るものであってただの知識不足には何の関係もない 想定の動きしなかったら一つ一つ確認するのは最低限のことだ 185 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 11:11:12.57 ID:sAh4R5unH.net] プログラムは決して思った通りには動かず、書いた通りにしか動かない 思った通りに動かない時、それは思った通りに書けてない時 186 名前：デフォルトの名無しさん mailto:sage [2020/12/31(木) 11:33:07.51 ID:yfYCC+Dx0.net] いや、Windows Update直後に動かなくなるとか普通にあるから あとVBSだが、最近InputBoxで第1引数の文字が出ないことがある どこかのファイルから文字を読み込んでるとかじゃなく、 引数に直接指定してるのに 起動しなおすと出るから間違ってはいない 187 名前：デフォルトの名無しさん mailto:sage [2021/01/01(金) 09:42:29.21 ID:Sutdgdij0.net] 間違っているのではなく見落としているんじゃね 188 名前：デフォルトの名無しさん mailto:sage [2021/01/01(金) 17:08:38.32 ID:PXRj0cmP0.net] そりゃPGの動作ってのは環境含めてだからな 189 名前：デフォルトの名無しさん mailto:sage [2021/01/02(土) 20:54:06.70 ID:gYfsTimq0.net] 不具合がわかっていて放置できるとかうらやましいな 190 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 03:24:12.12 ID:SOcZuJtz0.net] >>125 検索結果はARTICLEタグの1番目から3番目迄(0番目は検索結果とは違うものに使用されてる。)。 その下のクラス名LawDownloadの下にクラス名pdfFileが幾つか見つかるが、その直ぐ下にAタグにhref=で始まるURLが見つかる。 どれもGetElements系で取得出来る。 最後はURLDownloadToFile使えば良いんじゃね? 191 名前：デフォルトの名無しさん [2021/01/04(月) 16:03:39.37 ID:P/FS/eNz0.net] バッチでデスクトップを再起動する人もあまりいないと思うが デスクトップを再起動するプロシージャ内でExcelをQuitすると、Excelが勝手に再起動する という現象が起きるので一応報告しとくね 環境によるかも 最初からWin10のPCで、Excel2019 （Win8からのアプデPCで、Excel2013では起きなかったかも） デスクトップを再起動するコマンドを実行してるのはShell関数 Shell関数は非同期のはずだが、その同一プロシージャ内では、APIのSleepで５秒待っても駄目 DoEventsも駄目 そのプロシージャを一旦抜けて、タイマーで５秒後にQuitを実行すればExcelが再起動しない デスクトップを再起動するのは、とあるツールの強制終了で残るタスクバーアイコンをクリアするためで そんな用事のある人も滅多にいないだろうけど（クリアしなくても問題があるわけでもないし） 192 名前：デフォルトの名無しさん [2021/01/04(月) 16:52:13.02 ID:P/FS/eNz0.net] Access VBAに比べるとExcel VBAは随分安定してるが それでもゴリゴリ開発を繰り返すと、謎の実行エラーは起きるよね ソースを全部エクスポートしてインポートし直すと直るやつ 結構有名なはずだが 謎は実在するのにないと言い張るのは、経験不足なだけ 話題の動作を確認したわけじゃないがね 193 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 18:20:52.45 ID:WAisD+UGM.net] あまり何もかもをまとめて処理するのはリスキー過ぎる 小分けにして段階を踏め 194 名前：デフォルトの名無しさん mailto:sage [2021/01/04(月) 21:23:02.41 ID:XJuzf2wY0.net] VDI環境でメモリ4ギガしか振られてないんだけど、グローバル変数を4つくらい作るとメモリ不足エラーが出て不安定になります。 割り当てるメモリを増やせばエラー収まりますか？ 195 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 11:25:47.54 ID:vMxmEGnU0.net] 質問というか相談です フォーム上のテキストボックスを右クリックした時、元の背景色が通常色の場合は黄色に、黄色の場合は通常色にと切替を行い、塗り潰しチェックの様な事が出来るようにした物を作りたいです なのでMouseDown若しくはMouseUpで拾ってButton=2の場合に、テキストボックスの背景色を切り替える方向で行こうと考えました MouseDownは１度のクリックで２度処理を行ってしまう為、MouseUPを使用しようと思いましたが、 正直押した瞬間ではなく離した時点なのが至極個人的に違和感バリバリなのでMouseDownでどうにか処理できないかと考えています その場合、静的変数を用いて２回目かどうかの判定を行うのが良いのでしょうか 196 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 12:14:22.04 ID:lqyAMCWOM.net] Timerで1秒以内の2回目は止めたら 197 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 13:06:20.76 ID:LEN4uLCLd.net] for eachでフィルターがかけられた列をコレクションし、現在のセルと一つ下のセルの値を比較しようと思ったのですが、offsetだと隠れた行の数値が参照されてしまいます。 フィルタリングして可視状態の一つ下のセルを参照するには、どうすればよいのでしょうか。 198 名前：デフォルトの名無しさん [2021/01/07(木) 15:55:15.71 ID:JVCs6nJOM.net] 無理だな 一つ上のを覚えといて比較しな 199 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 17:04:40.85 ID:lqyAMCWOM.net] 該当セルから下方向に、 VidibleがTrueなセルに当たるまで探せば 200 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 20:16:51.59 ID:GNpPPMMj0.net] >>194 マウス離した時に実行するのがExcelに限らず一般的な動作だと思うが 201 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:26:20.22 ID:q8h4Rq+X0.net] 確かに ↓＼→ 弱ボタン離す、でも波動拳出るな 202 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:51:53.97 ID:CAJlIzxl0.net] はどうけんてなんですか 203 名前：デフォルトの名無しさん mailto:sage [2021/01/07(木) 23:59:30.52 ID:GNpPPMMj0.net] イギリスのロックバンドのことです 204 名前：デフォルトの名無しさん [2021/01/08(金) 07:36:54.65 ID:/1SPkI99a.net] 行とか列のデータのある範囲を選択するメソッドありますか？ currentregionの1行だけみたいなイメージで 今思いつくのは無理くり Range("C5").CurrentRegion.Offset(略).Resize(略〜 ないしは Endとかで割り出してから選択する とかなんですが なんかもう少しスマートな書き方があれば知りたいです 205 名前：デフォルトの名無しさん [2021/01/08(金) 07:38:15.90 ID:/1SPkI99a.net] 説明捕捉 >>203 の表の列はAからD以上まである感じです 206 名前：デフォルトの名無しさん mailto:sage [2021/01/08(金) 08:45:53.52 ID:F7dsXzNTM.net] columnsとかrowsプロパティで範囲から希望の列や行を取り出すじゃ駄目なの？ 207 名前：デフォルトの名無しさん [2021/01/08(金) 09:53:03.11 ID:/1SPkI99a.net] >>205 いや、rowsだと行全体が選ばれてしまうので 例えば 1行目は4列 2行目は5列 とデータの入っている列数がバラバラな場合 （値は全て入っているものとして） それぞれ4列とか5列分ぴったりに選ぶメソッドは無いものかと C列基準とかで選べたら一番いいけど A1選んで「ctrl+shift+→」と同じ結果でもいいです 208 名前：デフォルトの名無しさん [2021/01/08(金) 10:06:49.06 ID:/1SPkI99a.net] すみません >>205 のヒントで自己解決しました Range("C5").EntireRow.SpecialCells(引数) でいけました 失礼しました 209 名前：デフォルトの名無しさん mailto:sage [2021/01/08(金) 10:12:04.47 ID:0GZaxWieH.net] >>206 一発で求めるメソッドやプロパティはない たとえば3行目だけ選択だと、たぶんこれが最短 Range([A3], [A3].End(xlToRight)).Select 210 名前：デフォルトの名無しさん [2021/01/08(金) 10:18:16.84 ID:/1SPkI99a.net] >>208 ありがとうございます やっぱり1発ではないんですね 自分が書いたspecialcellも定数と数式とが混在してると やはりUnionで繋ぐなどしかないので 煩雑になるなあと思っていたので その書き方の方が良さそうですね 211 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 19:33:14.89 ID:tpxthpMW0.net] Dirコマンド、 コマンドプロンプトに直書きだとローカルもネットワークも取れるのに、 VBAからWSHで取ると、ローカルしか取れないのは何故? 212 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 22:38:35.27 ID:sDO7vtGda.net] 理由は知らないけど、コマンドプロンプトのDIRコマンドと、VBAのDir関数は別物です 213 名前：デフォルトの名無しさん mailto:sage [2021/01/09(土) 22:40:13.80 ID:sDO7vtGda.net] あ、失礼いたしました VBAのDirでなく、スクリプト経由なのか １つ前のレスは撤回します 214 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:05:09.81 ID:kg6XuktW0.net] >>210 まあユーザ認証回りだとおもうけど ちょっとコード晒してみて 215 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:13:14.86 ID:4Xu9louP0.net] >>213 これそのまま officetanaka.net/excel/vba/tips/tips27.htm sCmd = "dir [ローカル]" だとOKで、 sCmd = "dir [ネットワーク]" だと取れない Len(Result)で調べると0文字になってる コマンドプロンプトでやると取れるから、打ち間違いじゃないと思うんだけど 216 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 01:40:53.81 ID:bwHYpHvWH.net] >>214 手動でコマンドプロンプトからネットが見えるか再確認した？ Windows Updateするとファイル共有が勝手にoffにされることがけっこうあるよ 217 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 02:36:39.33 ID:CEBDD+E50.net] >>215 そんなことねーよ 死ね 218 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 08:23:59.20 ID:4Xu9louP0.net] >>215 確認した \\ネットワークにＣｈｒ（３４）入れて"\\ネットワーク"にしてもダメ 　　　　　　　　　(↑半角だと書き込めない) 219 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 08:51:06.81 ID:kg6XuktW0.net] >>214 [ネットワーク]の指定方法正しいか？ \\サーバ\共有名 でないと、\\サーバ だけではだめだぞ 手元で試したけど、うちではUNCパスでもネットワークドライブでもちゃんと動いた ただし、パスワードは事前に保存済み パスワード保存してないリソースはテストしてない 220 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 09:02:01.60 ID:qJ1NhQml0.net] ネットワークパス使ってファイルアクセス可能かまず調べる 221 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 09:03:56.67 ID:4Xu9louP0.net] >>218 \\サーバ\共有名って、\\サーバ\共有されてるフォルダ名? それなら合ってる ちなみに\\アドレスの数字\共有されてるフォルダ名ってのも試した パスワードは、エクスプローラーから開くときにパスワード入れなくていい状態になってるから、 保存済だと思う 222 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 11:56:30.27 ID:bwHYpHvWH.net] うちではサンプルのままで問題なく共有フォルダのファイル一覧が出るからWSHのせいではないと思う エラーコードやエラーメッセージは何も出てない？ Windowsのシェルを置き換えるとか、何かマニアックなカスタマイズしてる？ 223 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 12:45:12.99 ID:4Xu9louP0.net] >>221 いや、サンプルのC:\"を\\〜に変えただけ エラーも何もなく0文字で返ってくる 強いて言えば、試したのがVPN環境 後でVPNなしでどうなるか試してみるけど 224 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 14:01:53.42 ID:bwHYpHvWH.net] >>222 ホスト側のOSはWindows？双方にSMBは間違いなくフルセットで入れてある？ 225 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 16:37:15.38 ID:4Xu9louP0.net] >>223 Windows SMBがどうとかは、IT部門じゃないからわからない(会社の) 226 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 17:55:38.15 ID:kg6XuktW0.net] エラー（メッセージ）が出てないのはたぶん標準出力しかひらってないから 標準エラー出力になんか出てると思われ 227 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 18:05:33.95 ID:kg6XuktW0.net] つかここまでしてわざわざDirコマンド使う必要あるのか 何がやりたいんだ 228 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 20:17:18.14 ID:4Xu9louP0.net] >>226 サーバーの空き容量調べたいだけなんだけどね 方法は他にもあるけど、いちいちドライブ文字設定しなきゃいけないとか、 何かアドインみたいなの入れなきゃいけないとかあるし Dirコマンドが一番シンプルだし、 batでテキスト出力するのは問題なくできるから、 それを直接変数に入れられないかなと思ったんだけど 229 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 20:39:03.57 ID:kg6XuktW0.net] >>227 WSHつかうならDriveオブジェクトがUNCパスいけるっぽいけど https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/drive-object 230 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 23:21:47.74 ID:CEBDD+E50.net] 馬鹿が聞いて馬鹿が答えるスレ 231 名前：デフォルトの名無しさん mailto:sage [2021/01/10(日) 23:32:18.31 ID:LL6dwzdY0.net] >>229 お前は馬鹿馬鹿いうだけの馬鹿だな 232 名前：デフォルトの名無しさん mailto:sage [2021/01/11(月) 22:06:06.53 ID:pqPOJoG50.net] このスレでお世話になりまくった者だけど 金欲しさに工場部門の夜勤に今年から異動したからVBA触ることももうない 数年後間接部門に戻れるかわからんけど いや戻れないだろうけど スレの全員に感謝だわ 本当に色々教えてもらったし構文そのまま頂けた 本当にありがとう 233 名前：デフォルトの名無しさん mailto:sage [2021/01/11(月) 23:57:28.02 ID:pfNMzUxK0.net] 生産管理でまた使うことになったりして・・・ 234 名前：デフォルトの名無しさん mailto:sage [2021/01/12(火) 01:59:02.62 ID:OTa0Zw/f0.net] VBAに触らなくて良くなるだけで羨ましいわ 235 名前：デフォルトの名無しさん mailto:sage [2021/01/12(火) 19:01:11.25 ID:dCVmoeOp0.net] >>231 製造現場になじめないで会社辞めるに1ガバチョ 236 名前：210 mailto:sage [2021/01/13(水) 19:37:02.44 ID:lspxZscb0.net] Dirコマンドの件で回答くれた皆さん パスにUTF-8で文字化けする文字を含んでいたのが原因だったわ しょうもないオチでごめんなさい&ありがとう 237 名前：デフォルトの名無しさん mailto:sage [2021/01/13(水) 20:54:16.63 ID:aeNWg8u3H.net] UTF-8からシフトJISに正しく変換できない文字かあ 葛飾区とか草薙とか色々あるよな 記号も〜とか￥とか半角スペースとかマイナスとか、よく使うのに化けるのがたくさんある 238 名前：デフォルトの名無しさん [2021/01/14(木) 02:22:27.50 ID:JNzdWMyDd.net] >>235 それを解決できない馬鹿が中途半端に書き込むなよ 239 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 05:19:52.68 ID:ecyWCD0F0.net] 知恵袋よかこっちの方がよほど親身なのは住人が優しくてイイ人ばかりだからでつか？ 240 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 07:59:40.60 ID:gDZI6jyWr.net] =TEXT(ROUNDDOWN(a1,1-INT(LOG(a1))),IF(1-LOG(a1)>0,"0."&REPT(0,1-INT(LOG(a1))),"0")) をVBAで記述するとどうなるのか教えて欲しいです。よろしくお願いします。 241 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 12:22:18.25 ID:YIqcuI1O0.net] a = [TEXT(ROUNDDOWN(a1,1-INT(LOG(a1))),IF(1-LOG(a1)>0,"0."&REPT(0,1-INT(LOG(a1))),"0"))] 242 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 12:56:03.99 ID:YzBTA1U5H.net] >>240で解決してたけど、一応正攻法みたいな物 Sub 有効数字2桁() 　　Dim A1 As Double 　　Dim L As Integer 　　Dim S As String 　　Dim F As String 　　A1 = Range("A1") 　　L = 1 - Int(Log(A1) / Log(10#)) 　　If L > 0 Then 　　　　F = F & "." & String(L, "0") 　　Else 　　　　F = "0" 　　End If 　　S = Format(WorksheetFunction.RoundDown(A1, L), F) 　　Debug.Print S End Sub 243 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 18:59:26.33 ID:+2NwXrek0.net] >>240 マジか・・ 普通に書くか、いちいちWorksheetfunctionとか書いてたわ 244 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 20:01:26.65 ID:SduAKFWs0.net] 質問です。 シートモジュール内で、 Private Sub Worksheet_Change(ByVal Target As Range) For Each test In Range("他シートにある名前付きセルの名前") Next test End Sub これで実行時エラー”1004” ’Range’メソッドは失敗しました：WorkSheetオブジェクト　が出てしまうのですが、原因は何でしょうか。 Publicを取ってみたり、シートを指定しみたりしたんですが、変化ありません。 標準モジュールに記述してF5で実行した場合はエラー発生しません。 宜しくお願い致します。 245 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 20:33:06.60 ID:gxjpIPZs0.net] シートを指定する 名前の適用範囲を確認する 246 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 20:38:30.13 ID:SduAKFWs0.net] >244 名前の適用範囲を変えてみたりもしたんですが、だめでした。 247 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 20:52:33.18 ID:SduAKFWs0.net] >>244 すみません、解決しました。 名前の適用範囲を参照範囲のシートあるいはブックにして、且つVBAでそのシート指定すればいけました。 248 名前：デフォルトの名無しさん mailto:sage [2021/01/14(木) 20:55:12.26 ID:yNTWs1ET0.net] >>243 In Rangeの範囲がそのシートだから、そこに名前付きセルはない その範囲のあるシートがわかってるなら、In 他シート.Range("... のように指定するか 同一ブック内ならIn ThisWorkbook.Names("名前付きセルの名前").RefersToRange とかでいけんじゃね 249 名前：デフォルトの名無しさん mailto:sage [2021/01/15(金) 07:45:14.16 ID:fl9fRXksr.net] >>240 >>241 ありがとうございます。 250 名前：デフォルトの名無しさん mailto:sage [2021/01/16(土) 04:08:04.09 ID:wM/4uvwh0.net] �@Set DB As CurrentDb �ASet DB As CurrentDb（） この二つに使い分ける意味はありますか？ 251 名前：デフォルトの名無しさん mailto:sage [2021/01/16(土) 10:41:53.52 ID:MRodpgDG0.net] ないと思う 252 名前：デフォルトの名無しさん mailto:sage [2021/01/16(土) 16:36:07.57 ID:SaJeHrUX0.net] �@はカッコつけたい時 �Aはキーボード打つのめんどくさい時

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef