Excel VBA 質問スレ Part77

1 名前：デフォルトの名無しさん mailto:sage [2022/07/17(日) 07:07:35.59 ID:tS4zKdphH.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑同じ内容を3行貼り付けること ExcelのVBAに関する質問スレ コード書き込みや作成依頼もOK 次スレは>>980が立てること 無理なら細かく安価指定 ※前スレ Excel VBA 質問スレ Part76 https://mevius.5ch.net/test/read.cgi/tech/1651339421/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 101 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 16:21:50.51 ID:+mm9gF5i0.net] >>99 あのー このレベルの懐古厨にマウントは無理だよ 102 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 16:33:12.29 ID:GzNr1keE0.net] >>100 環境に依ったような気がする >>101 マウント厨かよw 103 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 16:38:39.42 ID:phnqPDxNM.net] ？ が勝手にPRINTになるやつね 行末；とか意外と難しいよね 104 名前：デフォルトの名無しさん [2022/07/25(月) 18:11:29.36 ID:aiOwBskw0.net] >>103 わからない馬鹿は書かなければいいのに 105 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 19:32:28.46 ID:c0BN6IQOM.net] >>103 合ってるよ ？はPRINTの省略でセミコロンはマルチステートメント マルチステートメントは改行(crlf)するより1バイト分お得 プログラムエリアが20kくらいしかなかったから可読性なんて贅沢の極みの状況だった 106 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 112f-bldA) mailto:sage [2022/07/25(月) 19:39:56 ID:6AaHjHdw0.net] マルチステートメントはセミコロンじゃなくてコロンな ちな今のVBAでも使える まあ、ソースを削れば早くなるなんてインタプリタ時代の遺物 107 名前：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd33-3G+t) [2022/07/25(月) 19:45:38 ID:Gx0l0SiPd.net] >>105 馬鹿の仲間か？ 108 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM4d-/hU7) mailto:sage [2022/07/25(月) 19:53:42 ID:c0BN6IQOM.net] >>106 あーすまん、フォローありがとう もうウロ覚えだわ～ 109 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-VsAj) mailto:sage [2022/07/25(月) 20:00:39 ID:TIxxPU060.net] 行末セミコロンはC言語 110 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-VsAj) mailto:sage [2022/07/25(月) 20:01:10 ID:TIxxPU060.net] 行末というか関数の後な 111 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 20:15:29.72 ID:GzNr1keE0.net] >>103のセミコロンはPRINTの改行抑止の話じゃねーの？ >>110 a = 1; のどこに関数が？ 112 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 21:09:51.78 ID:6AaHjHdw0.net] >>110 行末っていうか文末な >>111 >>103はそういう意味かもしれんとも思ったが、それに対する>>105は... PRINT AよりPRINT A;が早いからPRINTはセミコロンつけろっていうのは太古の昔にはあったなあ 113 名前：デフォルトの名無しさん [2022/07/25(月) 21:59:22.05 ID:CW1FoItD0.net] 如何にこのスレがじじいばかりか よく分かるレスだなぁ 114 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 22:26:52.71 ID:2R2hqyBdd.net] しかもスレチな話題をずっとするし害悪でしかない 115 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5101-R4TS) [2022/07/25(月) 22:30:19 ID:oUQ2GGC10.net] ・高度IT人材、富士通は最大年収3500万円へ ・AI人材の獲得に超本気　NECが新人事制度を9人に適用、富士通は最大年収3500万円へ ・【年収３５００万円も】富士通、「ジョブ型」人事制度を導入 幹部社員から 高度IT人材 ・来年度から副業解禁　人材多様化へ―大同生命次期社長 ・第一生命HD、副業解禁　約1万5000人対象 ・第一生命ＨＤ、副業解禁　１万５０００人対象―大手生保初 ・IHI、国内8000人の副業解禁　重厚長大企業も転機 ・ＩＨＩ、社外兼業を解禁　社内副業もルール化 116 名前：デフォルトの名無しさん mailto:sage [2022/07/25(月) 23:25:00.63 ID:qmzvdF1J0.net] 高田純次はすごいよな 昔話・自慢話・説教は嫌われるからしないってのを徹底してる 方やここの老害共は 117 名前：デフォルトの名無しさん mailto:sage [2022/07/26(火) 18:51:38.02 ID:bRnWAQLB0.net] ブーメラン返ってきてるぞ 118 名前：デフォルトの名無しさん mailto:sage [2022/07/27(水) 00:49:40.58 ID:LErGbxXl0.net] 2016使っててVBAが複数エクセル開いてると干渉して困ってたけど タスクバーのアイコンを右クリックして、alt押し続けながらエクセル起動すると 別プロセスで起動できることを最近知った 119 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ b910-QN/E) [2022/07/27(水) 09:53:31 ID:YpiXqhyl0.net] Windows 10 エクスプローラー　[表示]-[列の追加]-[列の選択]　 「詳細表示の設定」ダイアログが開いて　詳細　「コメント」をチェック。 エクスプローラーに「コメント」列が追加される。 フォルダに設定されたコメントをVBAで取得する方法があったら教えてください。 120 名前：デフォルトの名無しさん mailto:sage [2022/07/27(水) 10:42:22.72 ID:y3iJ04t7M.net] vba shell.application getdetailsof 121 名前：デフォルトの名無しさん [2022/07/27(水) 11:00:39.14 ID:elZrgoJKa.net] エクスプローラーが突然アホになる健忘症を治す方法を教えてくれまいか 122 名前：デフォルトの名無しさん [2022/07/27(水) 11:13:16.58 ID:elZrgoJKa.net] >119 scripting.cocolog-nifty.com/blog/2010/10/desktopini-3818.html 123 名前：デフォルトの名無しさん [2022/07/27(水) 11:19:05.52 ID:Uy/d0pUP0.net] 質問させてください。 keizann.blog.shinobi.jp/-yahoovba-/yahoo%E3%83%95%E3%82%A1%E3%82%A4%E3%83%8A%E3%83%B3%E3%82%B9%E3%81%8B%E3%82%89%E6%A0%AA%E4%BE%A1%E6%83%85%E5%A0%B1%E3%81%AE%E5%8F%96%E5%BE%97 こちらのものを利用させていただきデータを収集しているのですが、これだと希望する場所にたどり着けないです。 例えばXPathのように2番目のliの中の〜みたいな書き方はできるのでしょうか？ 124 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 81da-SXL5) mailto:sage [2022/07/27(水) 11:42:49 ID:y/T7OYsG0.net] すまん．ワードVBA の質問すれどこにあるか知ってる人がいたら教えて．昔あったけど発見できない．かそってなくなったのかな．アクセスVBAとエクセルVBAしかないのかな． 125 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMeb-FUOq) mailto:sage [2022/07/27(水) 11:48:06 ID:y3iJ04t7M.net] VBAなんでも質問スレ Part3 https://mevius.5ch.net/test/read.cgi/tech/1631184381/ ただし… 126 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 41ce-VsAj) mailto:sage [2022/07/27(水) 12:09:26 ID:sKOy45jL0.net] >>123 ざっと見たところ、単純に文字列を検索して切り出してるだけだから、関数の使い方を工夫すればできそうに見える ここよりその作者に直接聞け 127 名前：デフォルトの名無しさん [2022/07/27(水) 15:54:35.41 ID:t59wwtHz0.net] エクスプローラーが突然ハゲになる症状を治す方法を教えてくれまいか 128 名前：デフォルトの名無しさん mailto:sage [2022/07/28(木) 21:40:24.00 ID:5mhazMD10.net] >>127 再起動 129 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 11:13:15.94 ID:OVkASiTwd.net] >>123 最近ウェブページ操作することが多くて参考にならないかと思ってちょいみてみた 情報取得だけならこういう方法も処理が軽いからありなのかと勉強になったわ 取得したHTMLからお目当ての文字列を切り出すのにGetText関数を重層的に用いるのな GetText自体は簡単なもので、切り出したい文字列の前と後ろにある文字列を指定することで その間に挟まれている文字列を取得するというもの 何度か繰り返しこの関数を使うことで、目的の文字列にたどり着く うまいこと前後の文字列を指定してあげないと切り出しが狂ってしまって目標にたどり着けないので、その辺はHTMLをじっくり見ながらやってみるしかない タグにクラス名とかIDとか細かく設定されてるから、その辺を前後の文字列にうまいこと含ませながらやるのかな 取得したい文字列が存在する複数ページに共通する部分を使っていかないとダメっていう難しさはありそう 130 名前：デフォルトの名無しさん [2022/07/29(金) 13:56:47.64 ID:rkOqpdOk0.net] （なんでHTMLDocument使わないんだろう…） 131 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 14:12:34.81 ID:SQeCuMJr0.net] >>123 XPathを知ってるなら、そっちを使えばいいんじゃないの？ だいたいスクレイピングといえば、FindElementByCssとかFindElementByXPathをつかうもので、 なんでわざわざ別のやり方をやりたいのか意味がわからん。 132 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd33-M5Tw) [2022/07/29(金) 15:37:25 ID:4rYLg7AVd.net] VBAでシリアル通信を行う場合についての質問です。 CreateFileで指定のCOMポートを開き、WriteFileで指令を送信、ReadFileでデータを格納する流れだと思うのですが、 WriteFileで送る文字列の形式がマニュアルを見ても分かりません。 読み出しメッセージが「STX 10 R PV01 01 ETX BCC」の順だとしたらこれをStringで送ればよいのでしょうか？ それとも対応するASCIIコードを並べて送るのでしょうか？ 133 名前：デフォルトの名無しさん [2022/07/29(金) 16:37:10.32 ID:idOVuMm7a.net] 対応するASCIIコードを並べて送る 134 名前：デフォルトの名無しさん [2022/07/29(金) 16:50:05.77 ID:4rYLg7AVd.net] 回答ありがとうございます。 WriteFileで1バイトずつコードを送っていき、終端のコードを送るとReadFileで返答を持ってこれるという認識でしょうか？ 135 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 18:22:52.40 ID:Msj+MKnH0.net] COMポート送受信なんて、普通はそれ用のコントロールつかうんじゃね MSCOMMとか今はもう動かのかな 136 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 19:50:13.57 ID:rpK6f4vc0.net] >>134 そんな簡単にはできない 137 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 20:30:37.69 ID:47SIIXKm0.net] >>135 Windows10 64bit でも一応動くみたいだけど一手間（ファイルを移動させたりレジストリを書換えたり）が必要みたい 詳しくは mscomm32.ocx windows10 とかでググって 138 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 20:43:22.69 ID:47SIIXKm0.net] >>134 別に１バイトずつじゃなくても複数バイトを一気に送れるよ まあ送信速度に対してCPUの方がアホほど速いから性能上はどっちでも変わらんけど 念のための確認だけど STX が &H53 &H54 &H58 って思ってないよね 139 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 0bda-VsAj) mailto:sage [2022/07/29(金) 21:13:37 ID:rpK6f4vc0.net] 最近のPCはシリアルポートがついてない方が多いよね ハイパーターミナルってVISTA以降は入ってないし 140 名前：134 mailto:sage [2022/07/29(金) 21:44:49.02 ID:4rYLg7AVd.net] 回答ありがとうございます >>135,137 MSCOMMというものを使う方法もあるのですね 調べてみます >>138 ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね 一気に送るというのは配列で渡すような形ですか？ 基礎的な部分から分かっていないのできつい予感が 141 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 21:58:07.50 ID:Msj+MKnH0.net] つか通信する相手は何だよ？ 相手側機器に、通信用のライブラリとかないのか？ 142 名前：134 mailto:sage [2022/07/29(金) 23:12:49.30 ID:4rYLg7AVd.net] >>141 相手はレコーダーと調節計で目的は現在値の読出しです 調節計のほうは専用のソフトがありますがレコーダーのほうはありません PCで両方に接続して2つから同じタイミングで現在値を読んでExcelに記録していくものを作ろうとしています 143 名前：デフォルトの名無しさん [2022/07/29(金) 23:29:37.37 ID:uqH2D3BDd.net] 何でExcelで直接入出力する必要があるのか 馬鹿は発想からして馬鹿なんだよな 144 名前：デフォルトの名無しさん mailto:sage [2022/07/29(金) 23:58:33.41 ID:47SIIXKm0.net] >>140 > MSCOMMというものを使う方法もあるのですね 可能ならmscomm32.ocx使った方が遥かに楽 Win32APIだとボーレートとかの指定はSetCommState()を呼ばないとダメだし あと送信はWriteFile()で書き込めばいいだけだけど受信は何らかの要因で読めない時にキャンセルできるようにしないと使い勝手悪いのでSetCommTimeouts()でタイムアウト設定して制御を戻す必要あるけどmscomm32.ocxだと受信でイベントが発生するからそういう処理が楽 > ASCIIコードの対応でSTXが&H2、ETXが&H3ですよね ああすまんそこは大丈夫なのね、失礼した > 一気に送るというのは配列で渡すような形ですか？ そう Byte 型の配列を渡す > 基礎的な部分から分かっていないのできつい予感が 脅かすようで申し訳ないけど結構ハードル高いよ 特にReadFile()の方はバッファサイズを間違えるとExcel自体が落ちたりするし どうしても茨の道を進みたい/進まざるを得ないならまずはファイルに対してCreateFile/ReadFile/WriteFile/CloseHandleから練習した方がいいかも 145 名前：134 mailto:sage [2022/07/30(土) 00:32:26.79 ID:EONGri1rd.net] >>144 回答ありがとうございます 制限があるわけではないのでmscomm32.ocxを使う方向で行こうと思います 先が長そうな感じはかなりありますね・・・ まずはCreateFile、ReadFile、WriteFile、CloseHandleでファイルを操作するところからやってみます 146 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 03:02:20.62 ID:OeV/oYE+0.net] まずVBAでやるべきかどうか考えたほうが良いんじゃね 相手側がそれ用のコンポーネントでも用意してない限り、VBAでやるような案件じゃないぞ 147 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 03:31:29.08 ID:S23h7zaP0.net] >>123 です。 レスいただいた方々ありがとうございます。 スプレッドシートの ImportXML でXPathは理解しました。 HTML/CSSは書けますがそれ以外はさっぱりで…。 HTMLDocument、FindElementByCss、FindElementByXPathなど 調べていて出てきましたがどう書き出してどうエクセルに書き込むか 一から十までのものが見当たらず挫折しました。 >>129 さん！書き込み、非常に参考になりました。 <td></td> <td></td> <td></td> などは無理なようですが、どうにかclassなどが振ってあるサイトを探せました。 ありがとうございます。 148 名前：デフォルトの名無しさん [2022/07/30(土) 03:43:44.39 ID:GJbGwXKe0.net] >>123 if文で真偽値を二度判定するあたりなどは、もうさすがにやめてほしいわ。 149 名前：デフォルトの名無しさん [2022/07/30(土) 03:50:55.80 ID:GJbGwXKe0.net] >>147 Cells()だらけなのにExcelシートに値をセットしていないと思うのか？ 150 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 05:00:33.23 ID:eVUB+9l60.net] というか簡単に取れるけど kabu_kode = ThisWorkbook.Sheets("Sheet2").Cells(1, X).Value If kabu_kode <> "" Then driver.Get "https://finance.yahoo.co.jp/quote/" & kabu_kode Call Sleep(1000) '3秒待つ ThisWorkbook.Sheets("Sheet2").Cells(2, X).Value = driver.FindElementsByCss("h1._6uDhA-ZV").Item(1).Text '社名 ThisWorkbook.Sheets("Sheet2").Cells(3, X).Value = driver.FindElementsByCss("span._3rXWJKZF").Item(1).Text '株価 Set o_elem1 = driver.FindElementsByCss("dt") Set o_elem2 = driver.FindElementsByCss("dd") For Y = 1 To o_elem1.Count If X = 2 Then ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, 1).Value = o_elem1.Item(Y).Text '凡例を書く ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, X).Value = o_elem2.Item(Y).Text Next End If 151 名前：デフォルトの名無しさん [2022/07/30(土) 09:15:05.30 ID:paa5jUiAa.net] >>143 ++ ほんそれ 152 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 16:06:41.35 ID:2k62MWGF0.net] >>143 縛りプレイが大好きなんだよきっと 153 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 79ce-dSCr) mailto:sage [2022/07/30(土) 17:59:01 ID:abWJW+vX0.net] Sleep(1000)で3秒？ 154 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 79ce-dSCr) mailto:sage [2022/07/30(土) 18:00:32 ID:abWJW+vX0.net] kodeが気持ち悪い そこはkodoかcodeだろ 155 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 18:40:37.03 ID:zHogqexf0.net] >>145 ARDUINO とかで遊んでるやつもいて VBA シリアル通信 でググれば事例は出てくるからまずはここら辺を参考にすればいいかと https://kats-eye.net/info/2020/03/23/excel-arduino/ >>146,151-152 みたいな何の参考にもならないレスは無視していい 156 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 18:51:57.99 ID:zHogqexf0.net] >>154 喧嘩売ってんの？w https://kode.co.jp/about-kode 157 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 19:36:36.39 ID:BNmOiQjDd.net] ローマ字と英語が混ざってる時点で頭悪そうだなとは思う 匿名掲示板以外では口に出さないけど 158 名前：デフォルトの名無しさん [2022/07/30(土) 20:21:34.38 ID:hXWLTBTp0.net] >>155 運用することを考慮しない馬鹿 159 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 21:04:41.17 ID:LxmbT4O1r.net] 盛り上がってるところ低レベルの割り込み恐縮ですが ランダムな値が格納されてる配列の頻度分布を調べたいです ワークシート関数使わないでできるだけ行数少なく書くならどうするべきでしょうか 160 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 21:17:32.71 ID:abWJW+vX0.net] >>159 乱数の範囲によって方法が変わってくる 161 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 21:38:00.74 ID:zHogqexf0.net] >>158 おまえ>>145の状況知ってるの？ まさか状況知らずにダメ出ししちゃう無能君かな？w 162 名前：134 mailto:sage [2022/07/30(土) 21:41:59.73 ID:EONGri1rd.net] >>155 VBAのシリアル通信で調べていた際にARDUINOという単語を見かけたことはありましたが同じようにシリアル通信ができるのですね 中身を見た限り基本的な部分は同じようにできそうなので参考にしてみます 163 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 22:52:18.66 ID:bNASqKAqd.net] >>159 CSVで出力してPythonでmatplotlib使えば一発よ 164 名前：デフォルトの名無しさん [2022/07/30(土) 22:56:19.11 ID:hXWLTBTp0.net] >>161 典型的なパソコンにちょっと詳しいだけの馬鹿 165 名前：デフォルトの名無しさん mailto:sage [2022/07/30(土) 23:02:16.93 ID:wkD5AAYO0.net] >>164 完全同意！ >>164とかまさにそれだよな 166 名前：デフォルトの名無しさん mailto:sage [2022/07/31(日) 05:06:02.46 ID:VbPtQjeWr.net] >>160 整数0から20で要素数70です >>163 csv使うならワークシート関数でいいです 167 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7a01-Jv5Y) mailto:sage [2022/07/31(日) 05:59:25 ID:UwyiR8NW0.net] >>166 普通に Dim F(0 To 20) As Long Dim I As Long For I = LBound(A) To UBound(A) F(A(I)) = F(A(I)) + 1 Next ってやればいいだけじゃねーの？ 168 名前：デフォルトの名無しさん mailto:sage [2022/07/31(日) 06:45:31.55 ID:+RcSx9lzr.net] >>167 なるほど調べるのが整数限定ですからね 一般化して考えてたので思いつかなかったです ありがとうございました 169 名前：デフォルトの名無しさん [2022/08/01(月) 16:35:43.44 ID:9g/R1AFs0.net] セルＡ１に　1:00:00　の ような時間データが入っています これを変数に格納したいのですが 上手く行きません 最終的に変数の左2文字　1:　を 格納して他のセルに入っている 12:15:00　などの左2文字と比較 したいのです エクセルVBAは独学で詳しく わからないのですが、知見を お借りしたく質問させていた だきました よろしくおねがいします 24歳OL 170 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 16:40:09.61 ID:9ms8u+Pj0.net] なぜ24歳OLと入れた 171 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 16:44:24.88 ID:Rl1xejp60.net] そのほうが教えてくれそうだから 172 名前：デフォルトの名無しさん [2022/08/01(月) 18:17:38.73 ID:quoUWzO9d.net] VBAを知らないのではなくExcelのことをろくに知らないだけだな 173 名前：デフォルトの名無しさん [2022/08/01(月) 18:34:36.42 ID:ymJlKbsOM.net] >>169 VBA入門の最初の1ページからこのスレで説明しろと？ 174 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 18:38:01.34 ID:MuDoyFKF0.net] >>169 格納する変数の型が正しくないのかも 175 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 19:43:29.98 ID:kaXTkJ9F0.net] >>169 シートの名前は？ 176 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 19:44:55.66 ID:b27MMuGu0.net] コロンは除外したほうが比較しやすい Dim TimeA1 As Long Dim TimeB1 As Long TimeA1 = Left(Range("A1").Text,Instr(Range("A1").Text,":")-1) TimeB1 = Left(Range("B1").Text,Instr(Range("B1").Text,":")-1) 177 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MMee-kNao) mailto:sage [2022/08/01(月) 20:06:19 ID:c2lbE9aCM.net] Hour関数ならVariant型変数 178 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d593-q5pf) mailto:sage [2022/08/01(月) 20:06:42 ID:/01YeBPr0.net] >>176 ならhour()使う方がいいんじゃね 179 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 20:20:09.25 ID:b27MMuGu0.net] >>178 たしかに 180 名前：デフォルトの名無しさん mailto:sage [2022/08/01(月) 20:42:04.99 ID:A4DKp3HMM.net] いつものあいつだろ 181 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 09:23:38.92 ID:WVu/C7lVa.net] 24歳OL 小娘になりすましかRudy厨 182 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 09:42:27.92 ID:VTHaYhDHd.net] >>169の質問は「1:」とコロンも取り出したいという話なんだからまずはそれを回答しないとだめじゃないか？ そのうえで比較するのが違いがあるかなら1:00:00は「1」で12:15:00は「12」でもいいと思うから>>176みたいな回答を補足したほうがいいと思うが なので回答としては　Left(Range("A1").Text, 2)　とでも答えてやればいいとおもうんだが 183 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 10:01:28.41 ID:Gd43XZqn0.net] 気持ち的にはめんどいからそれでいいんだけど、 まあ実際にちゃんとした相手に教えるとなればそれまでの経緯とその後の用途も聞いて、適したデータになるようにしないとだわね 文字列「1:」と数値「12」の比較なんてそのままでは出来ないから 184 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 10:05:23.71 ID:VTHaYhDHd.net] ＞12:15:00　などの左2文字と比較したいのです って書いてあるのにかってに「12」を数値にしちゃいかんだろ なんかここで回答するやつたまに想像膨らませる奴いるけど仕事でもそんな感じなのかね 相手する人気の毒になる 185 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 11:54:47.43 ID:qyGirSaK0.net] >>169 本当に左2文字を取り出したいのなら 変数 = Left(Range("A1").Text, 2) だけど、もし時刻を比較したいんならこの方法はおすすめしない 186 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 14:56:05.83 ID:g2MjUr00r.net] >>169です たくさんレスいただき本当にありがとうございます 参考になるレスがたくさんで感謝しかありません 具体的な一例まで書いて頂けて助かります これからで教えて頂いた内容を参考に プログラムしてみます この度は本当にありがとうございました m(_ _)m＠24歳OL 187 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 15:48:33.16 ID:M1mz9f8+0.net] @24歳OLってことは、 24歳OLは地点の名称ってことだったんだな 188 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 16:09:24.35 ID:Gd43XZqn0.net] まあ24歳の改行には見えんしな 189 名前：デフォルトの名無しさん [2022/08/02(火) 16:18:40.57 ID:f8W0+U3I0.net] 10進法で24ではなく16進法とか32進法で24だろ こんな釣りに引っ掛かって意気揚々と答える馬鹿ども 190 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 16:35:13.65 ID:ouwdvJliM.net] =HEX2DEC(24) 191 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 17:59:32.64 ID:9ai4+8EuM.net] お前ら食い付きすぎ 192 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 18:46:55.49 ID:M1mz9f8+0.net] >>189 基数が変わると@の意味が変わるってこと言ってる？ 193 名前：デフォルトの名無しさん [2022/08/02(火) 18:50:18.70 ID:3Auutz710.net] 社会人二年目が終わり、そろそろVBA・・・ってパターンの24歳OLもあり得るのでは？ 194 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ fada-HV89) mailto:sage [2022/08/02(火) 18:59:16 ID:59A+RgA40.net] 遊びたい盛りの24歳がVBAになんか興味持つわけ無いだろ ましてやExcelすら興味ないんだから 195 名前：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd9a-1wwR) mailto:sage [2022/08/02(火) 19:28:20 ID:VTHaYhDHd.net] 年齢に食いついてるのは質問に回答すらできない人達でしょ 196 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 5d01-G1eK) [2022/08/02(火) 19:38:55 ID:3Auutz710.net] 24歳をチヤホヤしたらダメみたいな言い方だよな。 197 名前：デフォルトの名無しさん [2022/08/02(火) 19:53:54.38 ID:3Auutz710.net] チヤホヤしていいのは、12歳までか。 198 名前：デフォルトの名無しさん mailto:sage [2022/08/02(火) 20:57:14.71 ID:OnsfUwTz0.net] OLために一人一生懸命なのいるな 199 名前：デフォルトの名無しさん [2022/08/02(火) 22:24:42.35 ID:A3tAvDnUM.net] ネタに反応すんなよw セルの書式が標準だったら、本当に面倒くさいのがExcel。 200 名前：デフォルトの名無しさん [2022/08/03(水) 07:56:32.23 ID:7S+90b7b0.net] お前ら何を言ってるんだ？ RangeのTextプロパティなんて使える訳ないだろう 日付設定しているセルなんて幅狭められたら値が#になって終わりだ 201 名前：デフォルトの名無しさん mailto:sage [2022/08/03(水) 09:41:28.63 ID:gy/aLR/Wd.net] なぜ質問してる条件が「1:00:00」といってるのに勝手に「#」と想像を膨らませて混乱させるバカがいるのかと思う 終わってるのは自分だろと 質問された条件だけで素直に答えろよ

---

---

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

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