Excel VBA 質問スレ Part77

Excel VBA 質問スレ P ..

165:デフォルトの名無しさん
22/07/30 23:02:16.93 wkD5AAYO0.net
>>164
完全同意！
>>164とかまさにそれだよな

166:デフォルトの名無しさん
22/07/31 05:06:02.46 VbPtQjeWr.net
>>160
整数0から20で要素数70です
 >>163
csv使うならワークシート関数でいいです

167:デフォルトの名無しさん (ﾜｯﾁｮｲ 7a01-Jv5Y)
22/07/31 05:59:25 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:デフォルトの名無しさん
22/07/31 06:45:31.55 +RcSx9lzr.net
>>167
なるほど調べるのが整数限定ですからね
一般化して考えてたので思いつかなかったです
ありがとうございました

169:デフォルトの名無しさん
22/08/01 16:35:43.44 9g/R1AFs0.net
セルＡ１に　1:00:00　の
ような時間データが入っています
これを変数に格納したいのですが
上手く行きません
最終的に変数の左2文字　1:　を
格納して他のセルに入っている
12:15:00　などの左2文字と比較
したいのです
エクセルVBAは独学で詳しく
わからないのですが、知見を
お借りしたく質問させていた
だきました
よろしくおねがいします
24歳OL

170:デフォルトの名無しさん
22/08/01 16:40:09.61 9ms8u+Pj0.net
なぜ24歳OLと入れた

171:デフォルトの名無しさん
22/08/01 16:44:24.88 Rl1xejp60.net
そのほうが教えてくれそうだから

172:デフォルトの名無しさん
22/08/01 18:17:38.73 quoUWzO9d.net
VBAを知らないのではなくExcelのことをろくに知らないだけだな

173:デフォルトの名無しさん
22/08/01 18:34:36.42 ymJlKbsOM.net
>>169
VBA入門の最初の1ページからこのスレで説明しろと？

174:デフォルトの名無しさん
22/08/01 18:38:01.34 MuDoyFKF0.net
>>169
格納する変数の型が正しくないのかも

175:デフォルトの名無しさん
22/08/01 19:43:29.98 kaXTkJ9F0.net
>>169
シートの名前は？

176:デフォルトの名無しさん
22/08/01 19:44:55.66 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)
22/08/01 20:06:19 c2lbE9aCM.net
Hour関数ならVariant型変数

178:デフォルトの名無しさん (ﾜｯﾁｮｲ d593-q5pf)
22/08/01 20:06:42 /01YeBPr0.net
>>176
ならhour()使う方がいいんじゃね

179:デフォルトの名無しさん
22/08/01 20:20:09.25 b27MMuGu0.net
>>178
たしかに

180:デフォルトの名無しさん
22/08/01 20:42:04.99 A4DKp3HMM.net
いつものあいつだろ

181:デフォルトの名無しさん
22/08/02 09:23:38.92 WVu/C7lVa.net
24歳OL
小娘になりすましかRudy厨

182:デフォルトの名無しさん
22/08/02 09:42:27.92 VTHaYhDHd.net
>>169の質問は「1:」とコロンも取り出したいという話なんだからまずはそれを回答しないとだめじゃないか？
そのうえで比較するのが違いがあるかなら1:00:00は「1」で12:15:00は「12」でもいいと思うから >>176みたいな回答を補足したほうがいいと思うが
なので回答としては　Left(Range("A1").Text, 2)　とでも答えてやればいいとおもうんだが

183:デフォルトの名無しさん
22/08/02 10:01:28.41 Gd43XZqn0.net
気持ち的にはめんどいからそれでいいんだけど、
まあ実際にちゃんとした相手に教えるとなればそれまでの経緯とその後の用途も聞いて、適したデータになるようにしないとだわね
文字列「1:」と数値「12」の比較なんてそのままでは出来ないから

184:デフォルトの名無しさん
22/08/02 10:05:23.71 VTHaYhDHd.net
＞12:15:00　などの左2文字と比較したいのです
って書いてあるのにかってに「12」を数値にしちゃいかんだろ
なんかここで回答するやつたまに想像膨らませる奴いるけど仕事でもそんな感じなのかね
相手する人気の毒になる

185:デフォルトの名無しさん
22/08/02 11:54:47.43 qyGirSaK0.net
>>169
本当に左2文字を取り出したいのなら
変数 = Left(Range("A1").Text, 2)
だけど、もし時刻を比較したいんならこの方法はおすすめしない

186:デフォルトの名無しさん
22/08/02 14:56:05.83 g2MjUr00r.net
>>169です
たくさんレスいただき本当にありがとうございます
参考になるレスがたくさんで感謝しかありません
具体的な一例まで書いて頂けて助かります
これからで教えて頂いた内容を参考に
プログラムしてみます
この度は本当にありがとうございました
m(_ _)m＠24歳OL

187:デフォルトの名無しさん
22/08/02 15:48:33.16 M1mz9f8+0.net
@24歳OLってことは、
24歳OLは地点の名称ってことだったんだな

188:デフォルトの名無しさん
22/08/02 16:09:24.35 Gd43XZqn0.net
まあ24歳の改行には見えんしな

189:デフォルトの名無しさん
22/08/02 16:18:40.57 f8W0+U3I0.net
10進法で24ではなく16進法とか32進法で24だろ
こんな釣りに引っ掛かって意気揚々と答える馬鹿ども

190:デフォルトの名無しさん
22/08/02 16:35:13.65 ouwdvJliM.net
=HEX2DEC(24)

191:デフォルトの名無しさん
22/08/02 17:59:32.64 9ai4+8EuM.net
お前ら食い付きすぎ

192:デフォルトの名無しさん
22/08/02 18:46:55.49 M1mz9f8+0.net
>>189
基数が変わると@の意味が変わるってこと言ってる？

193:デフォルトの名無しさん
22/08/02 18:50:18.70 3Auutz710.net
社会人二年目が終わり、そろそろVBA・・・ってパターンの24歳OLもあり得るのでは？

194:デフォルトの名無しさん (ﾜｯﾁｮｲ fada-HV89)
22/08/02 18:59:16 59A+RgA40.net
遊びたい盛りの24歳がVBAになんか興味持つわけ無いだろ
ましてやExcelすら興味ないんだから

195:デフォルトの名無しさん (ｽｯｯﾌﾟ Sd9a-1wwR)
22/08/02 19:28:20 VTHaYhDHd.net
年齢に食いついてるのは質問に回答すらできない人達でしょ

196:デフォルトの名無しさん (ﾜｯﾁｮｲ 5d01-G1eK)
22/08/02 19:38:55 3Auutz710.net
24歳をチヤホヤしたらダメみたいな言い方だよな。

197:デフォルトの名無しさん
22/08/02 19:53:54.38 3Auutz710.net
チヤホヤしていいのは、12歳までか。

198:デフォルトの名無しさん
22/08/02 20:57:14.71 OnsfUwTz0.net
OLために一人一生懸命なのいるな

199:デフォルトの名無しさん
22/08/02 22:24:42.35 A3tAvDnUM.net
ネタに反応すんなよw
セルの書式が標準だったら、本当に面倒くさいのがExcel。

200:デフォルトの名無しさん
22/08/03 07:56:32.23 7S+90b7b0.net
お前ら何を言ってるんだ？
RangeのTextプロパティなんて使える訳ないだろう
日付設定しているセルなんて幅狭められたら値が#になって終わりだ

201:デフォルトの名無しさん
22/08/03 09:41:28.63 gy/aLR/Wd.net
なぜ質問してる条件が「1:00:00」といってるのに勝手に「#」と想像を膨らませて混乱させるバカがいるのかと思う
終わってるのは自分だろと
質問された条件だけで素直に答えろよ

202:デフォルトの名無しさん
22/08/03 12:44:22.01 7S+90b7b0.net
>>201
バカはお前だ。
>>689が「時間データ」と銘打っているのだからそこに入っているのは「文字列データ」ではない。シリアル値だ。
そのシリアル値が入ったセルの列幅を縮めてみろ。
まともに動かなくなるぞ。
valueでセル値を取得してFormatなりで文字列に変換した後で切り出しを行え言ってるんだ。
そんなことも理解出来ないこんな小さいロジックでバグるコードドヤ顔で晒してるような奴がよくこの業界で生き残ってこれたもんだ。呆れるわ。

203:デフォルトの名無しさん
22/08/03 12:46:24.42 7S+90b7b0.net
>>689じやねーわ
 >>169だわ

204:デフォルトの名無しさん
22/08/03 13:14:58.56 gy/aLR/Wd.net
あまりバカにかかわりたくないんだがTextでとると表示されている内容（「#DIV/0!」など）と同じものがとれるのはしってるわ
ただそれは条件に含まれてないわけだから仮にそういう問題もあると思うなら
お前から「#」になった場合も正しくとれる方法を回答してやれよ
粗さがしは得意で解決策を提示できない無能は自分の職場にもいるけど同じ匂いがするなお前

205:デフォルトの名無しさん
22/08/03 13:20:32.60 08s1J+Jsd.net
このクソ暑い日に本人そっちのけで戦う熱量に恐れ入るわ

206:デフォルトの名無しさん
22/08/03 13:27:57.05 7S+90b7b0.net
>>204
既に回答済みだわ
集中力が無いのか
読解力が無いのか
バカなのか
或いはその全てか

207:デフォルトの名無しさん
22/08/03 14:14:17.64 teV/av1J0.net
今日も暑苦しいねえ

208:デフォルトの名無しさん
22/08/03 14:15:56.82 teV/av1J0.net
なんかこれ一人で自演してるように思えて来たw

209:デフォルトの名無しさん
22/08/03 14:16:15.91 coj1xImd0.net
そんなユーザーなら誰でも知っているような話をどや顔で言い争うのやめてくれませんか？
見てて恥ずかしいし建設的じゃない。

210:デフォルトの名無しさん
22/08/03 18:07:13.51 Mw+Wxdkh0.net
>>209
反面教師と思ってああならないように気を付けようぜ

211:デフォルトの名無しさん (ﾜｯﾁｮｲ fada-HV89)
22/08/03 18:43:45 coj1xImd0.net
だからExcel板の連中からバカにされるんだよな

212:デフォルトの名無しさん
22/08/03 18:56:42.70 EBW1aqTx0.net
Excel板なんてあんのか。

213:デフォルトの名無しさん
22/08/03 19:26:06.29 NOMH7G4CM.net
ビジネスsoft板のことだろ

214:デフォルトの名無しさん
22/08/03 19:28:37.44 EBW1aqTx0.net
これはご親切にどうも。

215:デフォルトの名無しさん
22/08/03 20:54:58.72 coj1xImd0.net
何故仲悪いのか理解できたわ

216:デフォルトの名無しさん
22/08/03 21:31:27.92 PUzG+4xX0.net
相手の立場やレベルを考慮しないで言った通りのことしかできないやつは使えないって事なんだが
他人の話を額面通りにしか受け取れないのは、障がいだぜ
一度医者に行くことを薦めるわ

217:デフォルトの名無しさん
22/08/03 22:36:18.83 Mw+Wxdkh0.net
>>216
ブーメラン戻ってきてますよ

218:デフォルトの名無しさん
22/08/04 11:16:31.18 zN4tRRWc0.net
よっぽど悔しかったんだろ？

219:デフォルトの名無しさん
22/08/04 12:00:42.26 CwkjhMxBa.net
>>208

220:デフォルトの名無しさん (ﾜｯﾁｮｲ fada-HV89)
22/08/04 13:35:21 zN4tRRWc0.net
電話とPCでやれば自演てできるんだっけ？

221:デフォルトの名無しさん
22/08/04 16:47:37.44 cXYjQ5Ck0.net
じぇんじぇん

222:デフォルトの名無しさん (ﾜｯﾁｮｲ 79ce-dSCr)
22/08/04 17:24:45 c9mFgSP40.net
SeleniumBasic、WebDriverの質問いいですか？

223:デフォルトの名無しさん
22/08/04 17:28:53.56 kI29Y1SHF.net
>>206
なんでtextプロパティで取得する前提なのかがわからない。

224:デフォルトの名無しさん
22/08/04 17:39:47.72 Lldfidgm0.net
>>222
URLﾘﾝｸ(neos21.net)

225:デフォルトの名無しさん
22/08/04 20:26:30.10 WbKEV01G0.net
うちの会社は、プログラミング禁止になったよ
ちなみに代替手段はなし
マクロでやってたこと全部手作業になった
マジで物理作業量が跳ね上がってしまった

226:デフォルトの名無しさん
22/08/04 20:36:43.85 1k9fnhsyM.net
全体最適の観点では必ずしも間違った判断とは限らない
中途半端な小手先の最適化は業務自体を見直すモチベーションを奪うからな

227:デフォルトの名無しさん
22/08/04 22:20:34.12 QBsI6Re20.net
>>225
へぇー経緯は？
作った後テストしてなかったとか
IEEE754のせいで小数点計算がズレたとか？

228:デフォルトの名無しさん
22/08/04 22:56:37.32 NM48fYywM.net
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
コピペ主体だからメンテ不可能だった
そのくせ馬鹿は自分が他の人より偉いと思い込んでいた
こんなところだろ

229:デフォルトの名無しさん
22/08/04 23:14:37.44 isEYuHXY0.net
システム屋が作ったものではないと、そのひとしかわからないから、重要業務の担当者を外した巨大企業を知っている。
昔は我流でやるのが流行っていたから、プログラマでない人間が作ると、とんでもないものができているのが当たり前だった。

230:デフォルトの名無しさん
22/08/04 23:44:38.37 CV93jyTL0.net
>>229
他人と共有するものは、それなりにきちんと書かないといけない（ドキュメンテーションも含めて）けれども、自分ひとりが便利に使う書き捨てマクロまで禁止にするなんて、どうかしていると思いますよ
イノベーションイノベーションとうるさいくせに、そういうのを禁止するなんて矛盾していることに気がつかないのでしょうか？

231:デフォルトの名無しさん
22/08/05 00:23:11.85 Bo4EfhoE0.net
>>230
それが正確ならいいんだけどな。

232:デフォルトの名無しさん
22/08/05 00:38:13.23 umVys4oP0.net
>>225
面白そう
口パクみたいな感じで、働いてるフリすりゃいいんだろ?
実際には裏でVBSでも動かしておいて

233:デフォルトの名無しさん
22/08/05 03:55:39.38 vRCkxY7dd.net
人間がやらなくてもいい業務をやり続けるのってすげぇ時間の無駄だと思うんだけど
その業務から学ぶことなんて何も無いだろうし
目先の金を拾うだけの仕事は良くないと思う

234:デフォルトの名無しさん
22/08/05 04:30:48.50 HVkrhrQ0d.net
属人化、なぜか暇そうにしてたからリストラ、腹いせにパスワードで業務が止まったと見た

235:デフォルトの名無しさん
22/08/05 07:35:30.37 Lt70mDKgr.net
公式な部署や担当を当てて書かせたんじゃなくて各々が自分用に書いてたんだろ
コードが残らないようにしとかないと混乱するし業務効率が違いすぎて「不公平」だと騒ぐやつとかいたんじゃないの

236:デフォルトの名無しさん
22/08/05 08:01:13.52 fMQMo2cEM.net
過去にタダ乗りされて酷い目にあったから使ってても教えない

237:デフォルトの名無しさん
22/08/05 08:25:59.90 D4FWb9o5d.net
どうしたら上手く運用出来るかを考えずに一律禁止にしてしまうところがJapですね

238:デフォルトの名無しさん
22/08/05 08:36:02.57 XxJI9h8Xd.net
個別最適を無視するトップダウンな判断ができるのはむしろ非Jap的だと思う
Japはゲンバにクチダセナイからな

239:デフォルトの名無しさん (ｽｯﾌﾟ Sd7a-1wwR)
22/08/05 10:47:16 9/CLsA+Od.net
スレと関係ない話題なんだから他でやれよ

240:デフォルトの名無しさん
22/08/05 11:33:11.96 GN+Cpyju0.net
Excelユーザーは誰もがVBAを使いこなしてると思い込んでいたわ
初心者の頃

241:デフォルトの名無しさん
22/08/05 11:46:42.49 m45XxceE0.net
まるで初心者じゃないみたいな言い方だな

242:デフォルトの名無しさん
22/08/05 13:00:55.34 569iYGpd0.net
じゃあランク付けしてくれよ
ちなオレは軍曹クラス

243:デフォルトの名無しさん
22/08/05 13:03:45.49 PPjNiJ/gd.net
マニアじゃないから軍事用語なんか使われても強さがわからんわ
ケロロ軍曹しか知らんし

244:デフォルトの名無しさん
22/08/05 15:11:50.94 Bo4EfhoE0.net
Excelそのものも少数の人間だけが知っている運用ルールがあったりする。
わけのわからない表の解読に困ることもあるし、日本人はチームワークが得意だから、暗号のような記載ルールを勝手に決めていることもある。

245:デフォルトの名無しさん
22/08/05 18:30:26.77 9JwePxXo0.net
軍曹は部下が11人いるので、課長クラスでは？

246:デフォルトの名無しさん
22/08/05 18:37:25.28 m45XxceE0.net
表計算ソフトを誰がどんな使い方しようが関係ないし、なんとも思わない

247:デフォルトの名無しさん
22/08/05 18:44:56.08 9JwePxXo0.net
セルを小さくしてドット絵のようにして図解を描いたことならある。

248:デフォルトの名無しさん
22/08/05 19:17:52.69 Q4Ghv2JD0.net
元帥（名誉職・総司令官）⇒ 名誉会長
大将 ⇒ 会長
中将 ⇒ 代表取締役社長
少将 ⇒ 専務
大佐 ⇒ 常務
中佐 ⇒ 平取締役
少佐 ⇒ 事業部長
大尉 ⇒ 副事業部長
中尉 ⇒ 本部長
少尉 ⇒ 副本部長
准尉 ⇒ 本部長代理
曹長 ⇒ 部長
軍曹（ケロロ）⇒ 副部長
伍長（ギロロ）⇒ 部長代理
兵長（ドロロ）⇒ 課長
上等兵 ⇒ 課長代理
一等兵 ⇒ 主任
二等兵（タママ）⇒ 平社員
副部長くらいかなw

249:デフォルトの名無しさん
22/08/05 19:56:38.88 vZ1ATXrm0.net
>>247
パックマン作ったやつもいるけどな

250:デフォルトの名無しさん
22/08/05 20:00:30.00 vZ1ATXrm0.net
>>248
ごめん、軍曹を舐め過ぎた
上等兵くらいでした

251:デフォルトの名無しさん
22/08/05 23:36:41.76 helHcEAzr.net
>>248
尉官以上の士官とそれ以外は全く別の世界
本邦警察のキャリアノンキャリアは軍組織を元にしてる
民間での平から社長に登り詰めるみたいなのは不可能

252:デフォルトの名無しさん
22/08/05 23:46:50.13 Q4Ghv2JD0.net
>>251
ネタにガチ突っ込みされてもw

253:デフォルトの名無しさん
22/08/06 00:52:54.67 RyjK6DAd0.net
元帥クラスって誰辺り？
Office tanaka?

254:デフォルトの名無しさん
22/08/06 09:07:43.92 tdNHMM1PM.net
>>253
あの人以上はほぼいないだろうからそれでいいんじゃね
上等兵の俺はオブジェクト指向が解らんでつ

255:デフォルトの名無しさん
22/08/06 09:27:03.45 bSEd2c570.net
かなり昔だが、会社の同期がその人の講習会に参加したときに、「私より高いテクニックを持った人はいたとしても、分かりやすく教えられるスキルを持った人はほとんどいないからね～、私はテクニック至上主義ではない、実用的なやり方を分かりやすく教えられるプロ！」
みたいな話をされていたそうだ。
他人に教えるのって１番難しいわね。

256:デフォルトの名無しさん
22/08/06 10:37:03.49 hhkfvvu8a.net
事実としてそうなんだろうけど自分で言うのはどうかと思う
まあ講演会やるような人はこれぐらいの押しの強さが必要なんだろうけど

257:デフォルトの名無しさん
22/08/06 12:06:15.13 sbIyICn+0.net
いっぺんでもやってみるとわかる、教えるのって難しい
パソコンやExcelのことを周りからよく質問されるけど、いつも四苦八苦する

258:デフォルトの名無しさん
22/08/06 13:34:52.70 IcxH468v0.net
教えるのもマンツーマンなら比較的簡単だけどな

259:デフォルトの名無しさん
22/08/06 13:42:21.52 xsmVc9Uv0.net
>>258
いやらしいな

260:デフォルトの名無しさん
22/08/06 15:38:42.52 eSBCWCwIa.net
>>225
>>228
どういう業種なんだろ
馬鹿な対応っぷりからすると御役所系？

261:デフォルトの名無しさん
22/08/06 15:43:10.30 eSBCWCwIa.net
>>257
せっかく教えても肝心な質問した方が話聴いてなかったりするからな

262:デフォルトの名無しさん
22/08/06 15:45:16.89 xsmVc9Uv0.net
ネットで検索するような解決手段を教えた方がいい。

263:デフォルトの名無しさん
22/08/06 19:40:38.17 bSEd2c570.net
>>256
確かに。
まあアピールポイントに特徴ある人だと思う

264:デフォルトの名無しさん
22/08/06 21:13:56.39 xsmVc9Uv0.net
講演活動は知識だけの人が多いからなあ

265:デフォルトの名無しさん
22/08/06 21:38:32.41 IcxH468v0.net
ちょっと何言ってるかわからない

266:デフォルトの名無しさん
22/08/07 02:04:59.69 Zc4u6CYP0.net
>>265
実務経験ゼロでも成り立つ
講演、物書き、教育は、実務経験ゼロの会社がたくさんある。
だから、実例がすぐに出ない。

267:デフォルトの名無しさん
22/08/07 05:34:07.23 tUFhHO190.net
実例も知識じゃねーの

268:デフォルトの名無しさん
22/08/07 10:09:42.78 eoT1bhw/0.net
スレにまったく関係ないけど思い出した
取引先からある事情でビジネスマナー講義の受講（講師はそこの女社員）を強制されたことがあって
最初ら違和感あった（俺の親が逝ったと告げても何の反応もなしとか）けど講義内容に矛盾があったので指摘すると猛烈な人格批判が始まって驚いた
他日ウチの社長がそいつの社長（中小同士で学生からの友人）に会いに行ったときにちょっと遅刻したことがあって
秘書気取りのその女が用事があるからと言いつつウチの社長を小一時間ほど待たせた
流石に何かおかしいと思ったウチの社長が事情を問うと「取引相手を待たせるのはトップ失格だそれを自覚させるためにやった」などと主張したそうだ
つまり一種のコミュ障でコンプレックスある女が他人を見下ろすために知識の寄せ集めだけで副業に仕事をしていたって話
冒頭のある事情ってのも察してもらえれば

269:デフォルトの名無しさん
22/08/07 10:59:56.86 iThpGePG0.net
性格や考え方に問題あっても知識があるならいいんじゃね
実務経験があっても知識のない上司に相談して解決するならそうすればいいし
そもそも自分に知識があれば全て解決できるわけなんだが

270:デフォルトの名無しさん
22/08/07 11:09:10.44 UpuFs56f0.net
日本の企業は人材の性格も重要視するもんね。
能力あっても人間がクソなら採用見送ったり出世対象から外したり。

271:デフォルトの名無しさん
22/08/07 12:24:17.99 uNtQuwFMd.net
性格は欧米の方が重視されるぞ
文化的民族的背景が多様で自己主張も激しいから、クソ野郎は問答無用で切っていかないと無茶苦茶になる
日本はなんだかんだそこまで酷い人間は稀だからな

272:デフォルトの名無しさん (ｵｯﾍﾟｹ Sr5d-4bUZ)
22/08/07 12:57:45 TWy7Xhzwr.net
>>268が不明瞭なので補足
寄せ集めの知識というのは複数著者のテキストを咀嚼せず文字通りコピペしてるって意味
例えばビジネスコミュニケーションでは科学的根拠に基づかなければいけないというパワポ資料の次ページでナントカ占いみたいな性格判断が出てきたりとか

273:デフォルトの名無しさん (ﾜｯﾁｮｲ eb8f-2+m5)
22/08/07 14:41:48 JbyM4yYv0.net
説明が下手くそな輩ばっかだなこのスレ

274:デフォルトの名無しさん
22/08/07 15:39:52.33 TKajqBRY0.net
>>273
確かにそうだな
ここはお前の力の魅せどころだぞ

275:デフォルトの名無しさん (ﾜｯﾁｮｲ 6bda-erdL)
22/08/07 16:25:54 UpuFs56f0.net
いや、言っている事は分かるから全然良いですよ
ただ、要点だけまとめてくれたら読みやすいかなーと。
同志達たのんます。

276:デフォルトの名無しさん
22/08/07 17:53:18.30 iCiStKaEd.net
VBAと関係ないおっさん達の自分語りはいつ頃終わりますか？

277:デフォルトの名無しさん
22/08/07 17:57:35.06 fAQAAmLc0.net
>>276
お前みたいに構うやつがいなくなるまで無理じゃね

278:デフォルトの名無しさん
22/08/07 18:06:12.30 /jCP59e6d.net
>>276
ほんと他で話せばいいのにと思うよな
質問来てもろくな回答もできないからこういう答えの不要なレスするしかないんだろ

279:デフォルトの名無しさん
22/08/07 18:32:46.70 NS+q4Bfp0.net
まぁ質問者がいないときはいつもこんな感じだけどな

280:デフォルトの名無しさん
22/08/08 10:19:45.18 wk4U/6Hx0.net
質問いいですか？

281:デフォルトの名無しさん (ﾜｯﾁｮｲ 13ad-YzdW)
22/08/08 14:27:36 aqubZxNB0.net
どうぞ

282:デフォルトの名無しさん
22/08/08 22:16:45.25 bMElgXf+d.net
VBA でモテるにはどうしたら良いですか？

283:デフォルトの名無しさん
22/08/08 22:25:23.54 ptVxpUmad.net
そんなことをここで聞いてる時点で無理

284:デフォルトの名無しさん
22/08/09 10:07:28.51 b44kZqNV0.net
Excelできれば女子にモテるぞww
とか言われたからExcel始めたけど
ウソだったわ。
逆にキモがられるようになったら。

285:デフォルトの名無しさん
22/08/09 10:20:16.32 /NfYTDtW0.net
>>248
カプコンの1943思い出した
ステージクリアで尉官が上がって最終的に特別中将だったかな
よく考えたら社長クラスが一人で突撃ｗ

286:デフォルトの名無しさん
22/08/09 11:12:29.84 SavN6yJh0.net
Excel出来るようになったのではなく他に問題があるのでは🤔

287:デフォルトの名無しさん (ﾜｯﾁｮｲ 6bda-woMg)
22/08/09 14:08:30 rR0EJQ8B0.net
>>284
だまされたんだと思う、もうExcelやめた方がいいよ

288:デフォルトの名無しさん
22/08/09 14:53:29.86 b44kZqNV0.net
>>287
分かった。
Wordに移行するわ。

289:デフォルトの名無しさん
22/08/09 15:01:15.06 SavN6yJh0.net
草

290:デフォルトの名無しさん
22/08/09 15:23:13.16 8JIsTWChM.net
Excelできるけど仕事はできない人

291:デフォルトの名無しさん
22/08/09 20:40:53.82 AVc3PDFp0.net
パワポ男子の方が格好いいと思うなあ

292:デフォルトの名無しさん
22/08/10 08:38:11.60 fdOq6fLVd.net
excel365でファイルを更新した形跡を全く残さない方法って何かありませんか？
弄る部分はマクロのコードのみです
業務を格段に楽にするマクロをいくつも組んでやったのに感謝も薄く図々しく給与にもビタイチ反映されなかったので
このクソブラック企業を辞めるときに全部壊していきたいのですがバレるとアウトなので
変えないようにしたいのはファイル名の横に出る更新日時です

293:デフォルトの名無しさん
22/08/10 09:10:02.43 ph9U25aD0.net
エクセルのＶＢＡって2000から現在までの間に
ここで大きく変更があって互換性に問題があるみたいなのありますか？

294:デフォルトの名無しさん
22/08/10 10:06:18.63 kx7L/9BB0.net
>>292
一応言っておくけどお前のやろうとしてることは犯罪だし、回答書くと犯罪幇助になるから

295:デフォルトの名無しさん
22/08/10 10:07:16.58 kx7L/9BB0.net
>>293
2007 辺でグラフ周りが色々変わって過去のマクロでエラー出たことがある

296:デフォルトの名無しさん
22/08/10 10:10:55.76 uspPIoStd.net
そこそこあると思うよ
なので自分はバージョンごとにコードを振り分けたりした
実際に試したほうがいいんじゃないかな

297:デフォルトの名無しさん
22/08/10 10:22:34.51 20iS7AqN0.net
>>293
64bit化、ワークシートの大きさ、ワークシート関数の増減など、バージョンごとにどんどん変わってる
何を問題とするかは人それぞれで、利用環境や目的にもよるので、ちょっと質問が曖昧すぎ

298:デフォルトの名無しさん
22/08/10 10:36:03.23 p8b8cWYPd.net
>>292
こいつみたいなのがまさにこういうパターンだ
馬鹿が内容も理解せずコピペで作ったマクロのせいで間違いが発生していた
コピペ主体だからメンテ不可能だった
そのくせ馬鹿は自分が他の人より偉いと思い込んでいた

299:デフォルトの名無しさん
22/08/10 11:45:31.80 uspPIoStd.net
犯罪の質問なんて無視しとけよ
構うお前も同じなんだぞ

300:デフォルトの名無しさん
22/08/10 11:53:09.98 5QJKzNy5d.net
嫌がらせして辞めたところで迷惑を被るのは同じ作業してるポジションの人か後任の人だろうからやめとけ
査定をしてる立場の人達は痛くも痒くもない

301:デフォルトの名無しさん
22/08/10 12:39:15.19 fdOq6fLVd.net
うちのブラックに来たら誰でも同じことしたくなると思うけど
犯罪なのは分かったからやめとくわ
あと言っとくけどうちにはマクロ組めるような奴はいないし
体系的に学んだ上きれいなコードで書いてるからくだらんレッテルはいらない

302:デフォルトの名無しさん
22/08/10 12:55:04.32 /NkHb0sD0.net
>>292
マクロ作るのもあなたの業務だったのでは？
会社で仕事して給料もらえてたのにそれ以上のことなんかないよ

303:デフォルトの名無しさん
22/08/10 13:53:09.69 kx7L/9BB0.net
> 犯罪なのは分かったからやめとくわ
犯罪じゃないと思ってたのかよ...
まじでヤベー奴やんw

304:デフォルトの名無しさん
22/08/10 14:04:12.08 0PwnBNIZ0.net
気持ちは分かるが犯罪はいけないな。
次回からはそういうことに備えて
マクロにパスワード掛けて
時間が経ったら期限切れのメッセージでも
ポップアップして処理を中断させる
ようにでもしておけばいい。
もっとも、自分の作業効率化のために
頼まれてもいないのに勝手に作ったというなら
根こそぎ消しても問題ないとは思うけどな
どうしてもしたいというなら
法テラスにでも相談しに行けばいい。

305:デフォルトの名無しさん
22/08/10 14:26:23.92 Mq4biE7dM.net
If Date > 退職日 Then
Exit Sub
End If
あとは全部インデントなくすとかコロンで繋げるとかプロシージャ名を処理内容と紐づかないものにするとか
色々引き継ぎの嫌がらせは考えたことあるけど、やったら何訴えられるかわからんからやらない

306:デフォルトの名無しさん
22/08/10 14:28:02.85 5QJKzNy5d.net
てか保守出来る人居ないなら何もしなくてもそのうち会社は面倒事に巻き込まれるだろ
フォーマットがちょっと変わったり、新しい特殊な項目が追加されて使いものにならなくなったりするし

307:デフォルトの名無しさん
22/08/10 15:51:28.73 uspPIoStd.net
放置すればいいものを
くだらない話には食いつく奴ばかりだね

308:デフォルトの名無しさん
22/08/10 15:58:20.27 AlyojMao0.net
123 10
123 11
123 15
空白
空白
124 18
124 22
空白
125 20
空白
126 15
126 10
みたいな並びのコードがあって、
上下のコードが同じ場合、コードの隣の数字を10%で割り戻した数字を計算したものと、10の数字をそのままにしたものを2つ持っておいて、コードが変わるところまでそれぞれ計算したら、コード単位で10%で割り戻したものの合計値と、割り戻してないものの合計値の差分を
一行挿入して差額として123のいくらと転記
空白行は無視。
差額が出ない場合（基本的にはないけど）は行の挿入はしない、
というvbaって作るの可能？
差額を持たせることまではできたんだが、
挿入のところでこれ無理では？と思って止まってます。

309:デフォルトの名無しさん
22/08/10 16:00:49.46 AlyojMao0.net
ちなみにデフォルトで入ってる空白は無視です

310:デフォルトの名無しさん
22/08/10 18:18:34.25 kx7L/9BB0.net
>>308
挿入/削除はいろいろ面倒だから簡単にやるには別シート（もしくは別列）に転記しながら処理して最後に書き戻すのがわかりやすいと思う
スマホから入力してるから細かいミスはあると思うがこんな感じ
Dim S1 As WorkSheet: Set S1 = WorkSheets(1)
Dim S2 As WorkSheet: Set S2 = WorkSheets(2) ' 空のシート
Dim R1 As Long
Dim R2 As Long: R2 = 1
Dim N0 As Long: N0 = 0 ' 元の値合計
Dim N1 As Long: N1 = 0 ' 割戻し合計
Dim C0 As String ' 処理中のコード
C0 = S1.Cells(1, 1).Value
For R1 = 1 To S1.Cells(S1.Rows.Count, 1).End(xlUp).Row
Dim C1 As String ' 現在のコード
C1 = S1.Cells(R1, 1).Value
If C1 = "" Then Goto Continue
If C0 <> C1 Then
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
C0 = C1: N0 = 0: N1 = 0
End If
S2.Cells(R2, 1).Value = C1
Dim N2 As Long: N2 = S1.Cells(R1, 2).Value
S2.Cells(R2, 2).Value = N2
R2 = R2 + 1
N0 = N0 + N2: N1 = N1 + 0.9 * N2
Continue:
Next
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)

311:デフォルトの名無しさん
22/08/10 19:06:30.56 LEtlyiDn0.net
スマホからこんだけ入力するのは感心するわ

312:デフォルトの名無しさん
22/08/10 19:40:10.67 AlyojMao0.net
>>310
ありがとうー！！
後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
別シートに単純に一度書き写していって最後に読み戻すってのは目から鱗です
確かにそっちの方が問題なくできるかもしれないです
試してみます！

313:デフォルトの名無しさん
22/08/10 20:46:14.74 kx7L/9BB0.net
>>312
> 後半のC1:N0あたりの動きが読み取るのがちょっと難しいですが、
If C0 <> C1 Then
で、コードが変わった事を検出して変わったら
S2.Cells(R2, 1).Value = C0
S2.Cells(R2, 2).Value = "差額: " & CStr(N0 - N1)
R2 = R2 + 1
で、差分を追加して
C0 = C1: N0 = 0: N1 = 0
で、新しいコードを覚える共に合計値を初期化してる

314:デフォルトの名無しさん
22/08/10 20:48:55.75 p8b8cWYPd.net
こんなことがわからない奴が金計算をVBAでするなんて

315:デフォルトの名無しさん
22/08/10 20:57:23.40 ph9U25aD0.net
テキストファイルからキーワードが含まれてる行をセルに書き込みたいです
キーワードが８個あります
行＝Ｂを「商品」か「価格」を""に置換して
元のＢと違ってたら書き込むようにしたんですが
もっと簡素な方法ありませんか？
Open A For Input As #1'Aはテキストファイルのフルパス
Do Until EOF(1)
Line Input #1, B '1行分だけ読み込み
If B <> Replace(B, "商品", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
Else
If B <> Replace(B, "価格", "") Then
i = i + 1
Cells(i, 1) = B 'セルへ入力
End If
End If
Loop
Close

316:デフォルトの名無しさん
22/08/10 21:00:16.39 hNnMWsb/0.net
なんで商品と価格のReplaceを分けるのか

317:デフォルトの名無しさん
22/08/10 21:07:20.86 0PwnBNIZ0.net
>>315
InStrは嫌いなの？

318:デフォルトの名無しさん
22/08/10 21:43:46.56 AlyojMao0.net
>>313
ありがとうございます、
勉強中なので質問なんですが、
C1:N0 ＝0:N1=0の中の:ってどういう意味なんでしょうか？

319:デフォルトの名無しさん
22/08/10 22:04:25.44 NcNdkaPG0.net
突っ込みどころ満載の質問久しぶりね

320:デフォルトの名無しさん
22/08/10 22:24:43.27 kx7L/9BB0.net
>>315
> キーワードが８個あります
これはどうなったの？
単に複数のキーワードが含まれてるかを見たいだけなら
Line Input #1, B '1行分だけ読み込み
Dim K As Variant
For Each K In Split("商品,価格", ",")
If B Like "*" & K & "*" Then
Cells(i, 1).Value = B
i = i + 1
Exit For
End If
Next

321:デフォルトの名無しさん
22/08/10 22:31:30.17 uspPIoStd.net
>>315
どんなやり方でもいいと思うけどキーワードを含むかどうかを関数にするといいんじゃない
Function CheckKeyword(ByVal pValue As String) As Boolean
CheckKeyword = True
If pValue <> Replace(pValue, "商品", "") Then
Exit Function
End If
If pValue <> Replace(pValue, "価格", "") Then
Exit Function
End If
残りのキーワードも同様に判定
CheckKeyword = False
End Function
これを使えば
i = i + 1
Cells(i, 1) = B 'セルへ入力
の部分は1つでいいよね

322:デフォルトの名無しさん
22/08/10 23:03:22.07 kx7L/9BB0.net
>>318
VBA マルチステートメント
でググってくれ

323:デフォルトの名無しさん
22/08/10 23:23:06.57 20iS7AqN0.net
>>318
改行みたいなもん。たとえば
N0 = 0
N1 = 0
という複数行のコードを1行にまとめることができる
N0 = 0: N1 = 0
だけど、やらない方がいいと言われている

324:デフォルトの名無しさん
22/08/11 19:50:59.53 eLvp/vGod.net
変数宣言と同時に初期化する用途に限って俺は許容してるな
それよりif文を1行で閉じる奴が凶悪
ネストするとEnd ifの数が合わなくなる

325:デフォルトの名無しさん
22/08/11 20:39:49.16 Eqlf5oxG0.net
>>324
変数宣言と一緒に初期値設定する人はよく見かけるしアリだと思う。
同様に実は特殊な場合に限りIf文を一行で記載することもある。
本来構造化言語で使わない方が良いとされているGoto文も特殊な場合に限り使うこともある。
VBAは結構何でもありの言語だからその辺、仕事場のコーディングルールや
作ってる人のマイルールによって随分違いが出てくる。
一概にどんな方法をとることが最善とは言えないから人の書いたソース見てると面白い。

326:デフォルトの名無しさん
22/08/11 20:49:36.22 bTQMDZYqd.net
Ifの中身が1行だけの時に全体を1行で書くのはマルチステートメントとは違うくない？
If a = 0 Then b =0
あくまでコロンでつなぐ場合のことでしょ

327:310 (ﾜｯﾁｮｲ 1301-lJ3c)
[ここ壊れてます] .net
俺も本来はマルチステートメントは使わないけど、5chのレスは行数制限あるからマルチステートメントにしてるだけ
そもそもこの手の話は好みもあってどっちが正しいとかはないからそろそろやめようよ

328:デフォルトの名無しさん
22/08/11 22:00:47.13 /ib3rHvC0.net
そもそもダメだとか誰が言っているのだろうか。。

329:デフォルトの名無しさん (ｽｯｯﾌﾟ Sd33-N11w)
[ここ壊れてます] .net
○○ならアリって言ってるってことはそれ以外はナシって受け取る人もいるだろ
提供されたコードをそのまま使うだけしかできないならそれだけの話だし
自分のルールに従って直せばいいだけの話で人のコードにケチ付ける必要なんてないだろ

330:310 (ﾜｯﾁｮｲ 1301-lJ3c)
[ここ壊れてます] .net
>>328
> だけど、やらない方がいいと言われている
みたいな意見があるから

331:デフォルトの名無しさん
22/08/12 00:11:05.61 gP2cSn76d.net
コーディングルールなんて宗教みたいなもんだけど、一応マルチステートメントは推奨されないという意見のが多数
リーダブルコードにも書いてあるし、MS公式も推奨しないと言ってる
URLﾘﾝｸ(docs.microsoft.com)
明確に禁止したがってる人は肌感覚でもっと少数派だけどね

332:デフォルトの名無しさん
22/08/12 00:24:13.41 nWfz+VWs0.net
どうせ仕事でVBA作ってる質問者なんて少ないやろ

333:310
22/08/12 05:00:53.71 zAuzG+foa.net
>>331
おっちゃんそれVBAじゃなくてVB.NETのドキュメントやで

334:デフォルトの名無しさん
22/08/12 05:44:37.34 Icr7mfuu0.net
Van.Netなら変数宣言と同時に初期値設定出来るから
引き合いに出すのもお門違いだな

335:デフォルトの名無しさん
22/08/12 06:23:06.84 dDX14IC1M.net
>>334
van.netなどない、このハゲ！

336:デフォルトの名無しさん
22/08/12 08:48:11.58 nWfz+VWs0.net
中のVBAのコードだけGitに上げることってできるの？
めんどいコマンドとか外部サービス使わずに
そもVBEからコミットとかプルリクとかやりたい

337:デフォルトの名無しさん
22/08/12 09:02:48.49 Icr7mfuu0.net
>>335
すまん、VB.Netの間違いだった
しかし俺は禿げてはいない。頭頂点しかな！！

338:デフォルトの名無しさん
22/08/12 09:16:28.60 Icr7mfuu0.net
>>336
まあコードをエクスポートしたものを載っけておくくらいかな。
Bisual Sutadioみたいにエデイタ上から設定するのは無理だと思った。
て言うかコードだけ取っておいてもexcelのVBAの場合はexcelそのものに影響されるところも多いから
excelごと取っておいてソースを比較したいときだけ何かのツールでソースの比較を行った方がいいと思う。

339:デフォルトの名無しさん
22/08/12 12:38:04.21 Oc3JB1Iir.net
Bisual Sutadio

340:デフォルトの名無しさん
22/08/12 12:52:14.02 kbIhrpmL0.net
>>336
今のVBAでGitは見たことないけど
昔VSSで管理するアドインがあったから、アドイン作ればできるんじゃね
 >>338
マクロ入ってるエクセルはどうか知らんが、今のエクセルってXMLをzipで固めただけのはずだから
Zip解答してソース管理に突っ込む手もあるかもしれん
つかお前の誤字はわざとかこのハゲ

341:デフォルトの名無しさん
22/08/12 16:32:51.36 BEh6dSX60.net
お前ら禿好きだな

342:デフォルトの名無しさん
22/08/12 16:38:58.11 eSjTAJcc0.net
↑この人ハーゲマンです

343:デフォルトの名無しさん
22/08/12 17:59:10.79 BEh6dSX60.net
いきなし禿げたんよ。
去年の夏位まではふさふさだった

344:デフォルトの名無しさん
22/08/12 20:16:41.08 ijOecH2p0.net
それはコロナだから治療行けよ。

345:デフォルトの名無しさん
22/08/12 21:06:52.17 rQBVWxEE0.net
Dim Eight As Typhoon
Set Eight As Typhoon
Debug.Print Eight.HPa

346:デフォルトの名無しさん
22/08/12 21:35:36.13 JWVBEjPKr.net
質問です
エクセルでvba書くとハゲるというのは本当ですか？
それともハゲじゃないとまともなコードにならないということでしょうか？

347:デフォルトの名無しさん
22/08/13 00:36:53.33 7+qtu9p80.net
>>345
Set Eight = New Typhoon

348:デフォルトの名無しさん
22/08/13 00:54:21.19 C3GQNRB30.net
Print Eight.Name
Mary

349:デフォルトの名無しさん
22/08/13 07:49:57.82 Q44FuubAd.net
>>346
ハゲる→外に出られなくなる→VBAしか無い人生に陥る

350:デフォルトの名無しさん
22/08/13 18:00:34.01 +/onKVXv0.net
禿が気になるなら頭ツルッツルにするという構想は無いのかね？

351:デフォルトの名無しさん
22/08/13 18:44:02.54 qT7WXGgOd.net
Dim Hair As Object
Set Hair = Nothing

352:デフォルトの名無しさん
22/08/13 21:29:48.82 +/onKVXv0.net
>>351
座布団100枚

353:デフォルトの名無しさん
22/08/13 22:55:44.03 ZiFcsOVE0.net
>>346
こら！良い大人ならスキンヘッドと言いなさい！

次ページ