Excel VBA 質問スレ Part71

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ 0f5f-nIK+)
垢版 |
2021/05/25(火) 12:48:01.06ID:mepUVc/i0
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2021/06/23(水) 09:00:39.91ID:928PjIhZ0
よっしゃまかせろ！
2021/06/23(水) 09:01:02.65ID:928PjIhZ0
そのかわりブツに文句言うなよ
2021/06/23(水) 12:25:06.39ID:IfV2zgkJ0
メモリ＝目盛
2021/06/23(水) 12:37:19.89ID:MvB3fdrAd
メインをメーンと呼ぶのはなぜかしっくり来ない
2021/06/23(水) 12:43:38.93ID:VmJ9egwd0
>>496
そりゃそうだぜメーン
2021/06/23(水) 14:38:25.35ID:a38R1LEua
>>497
そりゃないぜセニョール
2021/06/23(水) 15:16:25.32ID:eMYNA1AA0
基本的には長音歓迎派なんだけど、コンパイラとかドライバを伸ばすのはちょっと抵抗ある。慣れなんだろうけど。
2021/06/23(水) 16:26:51.57ID:ykLvXZOX0
ドライバーは運転手か工具
ドライバはIT系な感じ
2021/06/23(水) 16:49:46.55ID:s45KB9Qr0
JIS Z 8301:2011 規格票の様式及び作成方法
https://kikakurui.com/z8/Z8301-2011-01.html
p.61
G.6.2.2 英語の語尾に対応する長音符号の扱い
英語の語尾に対応する長音符号の扱いは，通常，次による。
なお，英語の語末の -er，-or，-ar などは，ア列の長音とし，長音符号を用いて表すものに当たるとみなす。

a)専門分野の用語の表記による。
　注記 学術用語においては，原語（特に英語）のつづりの終わりの -er，-or，-ar などを仮名書きにする場合に，
　長音符号を付けるか，付けないかについて厳格に一定にすることは困難であると認め，
　各用語集の表記をそれぞれの専門分野の標準とするが，
　長音符号は，用いても略しても誤りでないことにしている。
b)規格の用語及び学術用語にない用語の語尾に付ける長音符号は，表 G.3 による。

表 G.3?外来語の表記に語尾の長音符号を省く場合の原則

a) その言葉が 3 音以上の場合には，語尾に長音符号を付けない。
　エレベータ（elevator）
b) その言葉が 2 音以下の場合には，語尾に長音符号を付ける。
　カー（car），カバー（cover）
c) 複合の語は，それぞれの成分語について，上記 a)又は b)を適用する。
　モータカー（motor car）
d) 上記 a)?c)による場合で，
　長音符号を書き表す音（例 1），
　はねる音（例 2），
　及びつまる音（例 3）は，それぞれ 1 音と認め，
　よう（拗）音（例 4）は1音と認めない。
　1 テーパ（taper）
　2 ダンパ（damper）
　3 ニッパ（nipper）
　4 シャワー（shower）
2021/06/23(水) 17:36:51.98ID:qgCkTWnfa
ニッパーじゃね
2021/06/23(水) 19:21:04.82ID:IfV2zgkJ0
パイじゃなくてファイだφ
2021/06/23(水) 20:14:03.48ID:wgFpF9fcd
ワイワイ
ファイファイ
パイパイ
2021/06/23(水) 20:27:01.71ID:mCwmH59+0
Dをでー、Tをてーと発音するのはどうなるよ
2021/06/23(水) 20:58:36.08ID:XDehW3zk0
AやEと聞き間違えないようにするための配慮
2021/06/23(水) 21:02:37.21ID:1PI4u6Tfp
読み方アンケート
http://shinh.skr.jp/yomikata/
2021/06/23(水) 22:06:12.43ID:6LK+BVag0
ラッパーがラッパになるのか
2021/06/24(木) 02:25:12.03ID:T6M8xG5Xd
仮面ライダ
2021/06/24(木) 06:37:37.59ID:QJfsonoMM
共有フォルダのmdbファイルにADOでアクセスしてます

一人だとconnectionのcloseは、すんなり行きます
だけど、誰かが同じようにadoでconnectionをopenしてるときに、connectionのcloseをかけると30秒くらい止まります

どしたら解決できますん？
2021/06/24(木) 11:29:29.71ID:fV3ECtKD0
解決とは？
2021/06/24(木) 11:38:25.88ID:HYLHdf1N0
質問を質問で
2021/06/24(木) 11:43:35.17ID:fV3ECtKD0
そう思うなら回答してやれよ
2021/06/24(木) 11:47:51.88ID:k74Hhvlxd
そういう時はコーヒーを沸かして飲んでみよう
飲み終わってから画面を見ると、なんともう終わってるじゃないか！
2021/06/24(木) 11:50:14.97ID:fV3ECtKD0
ということでそれで解決でいいんじゃね
2021/06/24(木) 12:21:52.89ID:Jt6CyBl5a
待て待て、>510本人が良くても他に開いてる誰かが大人しくコーヒー淹れて飲むかは分からんぞ
ここは待ち時間の間に詰将棋でも表示する方が良いのではないだろうか
2021/06/24(木) 16:40:18.82ID:pMYowNTL0
普通に考えて、何もなければクローズに30秒もかかるわけないし
なんらかのエラーが出てるかファイル共有サーバに問題があるかだろ

ちょっと試したけど実際そんなことにはならん
詳しい環境もわからんしこれ以上は何とも言えんわな

詰将棋のルールわからん人もいるだろうからおとなしく待てとしか
2021/06/24(木) 18:52:32.85ID:fvpW6/m50
「誰かが入ってるとき」ってのが引っかかるけどACCESSでしょ？
排他やら何やらもあるかも知れんけど、こういうときはまず最初に疑うのはそのACCESSファイルが最適化されているかでしょ？
とりあえず閉じるときに最適化ロジックが入っているかと、一回最適化して同じように確認してみたら？
2021/06/24(木) 19:05:50.58ID:fV3ECtKD0
詰将棋のルールーがわからない人にはルールーを表示させればすむけど
1日に何杯もコーヒーのむほうが大変だと思うぞ
2021/06/24(木) 21:23:06.04ID:6XiBLtfxd
データベースへのアクセスは1日3回までってルールにしとけばいい
2021/06/24(木) 22:15:39.20ID:N1fSfE+M0
サンキューお前ら
VBAで詰将棋作ってみたくなったわ
2021/06/24(木) 22:19:38.50ID:j8XJOhye0
4回以上やりたくなった時は？
2021/06/24(木) 22:25:25.99ID:PacqBN260
翌日まで我慢
2021/06/24(木) 22:51:48.52ID:j8XJOhye0
そこをなんとか
2021/06/25(金) 04:21:27.11ID:pWufOIHg0
>>519
詰め将棋のルールってなんでしたっけ？
2021/06/25(金) 06:53:30.80ID:vOdhLpo60
打ち歩詰め禁止とかじゃね
2021/06/25(金) 07:59:23.77ID:wgiPSGNVM
>>525
ルールーはおっぱいでかい魔法使い
2021/06/25(金) 08:33:48.02ID:XmCJB1/jM
王手以外の指手は禁止
2021/06/25(金) 08:39:53.41ID:IZPRsfFa0
ルールーって言ったらルールー・アムールが真っ先に出てくるわ
2021/06/25(金) 12:38:34.38ID:+d6D4vlfM
モーグリの人形かかえたFF10のやつしか思いつかない
2021/06/25(金) 12:39:22.83ID:3meXi5SgH
予感です。予感がします
2021/06/25(金) 13:20:23.81ID:KvLfiLSb0
Publicで多次元Variant型の配列「ar」を宣言して、１つ目のプロシージャでRangeを代入します。
そして、２つ目のプロシージャで中身を全て入れ替えたいので、

ReDim ar(**,**)で改めて再定義した場合、arはPublicのままなのでしょうか？
2021/06/25(金) 14:34:57.54ID:w2Hk7y/m0
試してみればいいじゃん
2021/06/25(金) 17:15:28.02ID:voQP3b0vp
再定義のアーチをくぐって 宝島が見えるころ
何も失わずに同じでいられると思う？
あなたの変数は誰かと腰を振ってるわ
2021/06/25(金) 17:31:40.68ID:gAzExUS50
VBAとはちょっとズレるんですが、数万行のデータのシートが複数はいっているExcelで
他の列から複数、Vlookupで参照されているA列の値を書き換えたりすると、8コアのCPUが10秒以上100％に貼り付いてフリーズしたみたいになります
一箇所のセルが変わると他の全部も再計算するんでしょうか
2021/06/25(金) 17:31:43.89ID:7fvDu+8ra
vbaは強いものよ
そして儚いもの
2021/06/25(金) 17:45:43.80ID:wgiPSGNVM
>>535
たしか揮発性関数だろ
2021/06/25(金) 18:42:08.78ID:2BrnQ6rs0
>>535
自動計算解除して変えたいセルの値全て変えてから
自動計算を有効にしましょう
2021/06/25(金) 18:56:39.24ID:+d6D4vlfM
もうそのレベルだと計算式消して全部マクロのほうが良さそう
2021/06/25(金) 19:21:22.62ID:1hf1yXL60
Index+Matchにすれば解決するかな？
2021/06/25(金) 19:33:19.05ID:iT16KKQVM
>>535
そりゃvlookupで参照されてたら変化する可能性があるから検索し直すしかないわな
2021/06/25(金) 19:43:27.52ID:NIf9z4HJd
>>535
うちに何でもA:Aとかやっちゃう人いて、無駄に重くなってるわ。
2021/06/25(金) 21:46:15.48ID:vmY2fUxg0
>>540
多分、テーブルでindex(match())にするのが吉
2021/06/25(金) 22:51:04.98ID:n+eilb530
テーブルはいいね、Excelの中では最適化されてるから無駄が少ない
2021/06/26(土) 00:59:51.95ID:yS+urnnX0
時代はテーブルかい
いまだにセルをオサレにする機能だと思い込んでいる人いるがな
2021/06/26(土) 01:37:53.59ID:+M7iFB5a0
vbaスレで時代を語るとは片腹痛し
2021/06/26(土) 03:05:17.29ID:yS+urnnX0
時代もなにもここはExcel2003で時が止まっていると聞いたから
2021/06/26(土) 03:14:40.43ID:+M7iFB5a0
そんなかわいそうな事言うなよ
今VBAを勉強してるジジババは、エクセル作業を自動化できる最新技術だと思って講習会通ってんだぞ・・・
2021/06/26(土) 04:20:29.68ID:6yHEZQAza
>>548
その講習会に参加してたのねw
2021/06/26(土) 04:23:23.00ID:+M7iFB5a0
自分が？
なんの罰ゲームだよ
2021/06/26(土) 06:37:11.80ID:jr0s3oBIp
じじいを舐めたらいかんぞ
最近のじじいはJavascriptくらいはやっとる
2021/06/26(土) 07:20:19.18ID:uNK5rPnpM
てか講習会って何？w
2021/06/26(土) 08:20:23.84ID:GKzUeWOH0
VBAはどこでも使えるRPAツールだろ？
2021/06/26(土) 10:25:11.17ID:G/mKJlN/0
>>526
詰め将棋しかしたことがなく将棋を指したことがないから教えてください、打ち歩詰めは指し将棋でもルール違反なんでしょうか？
2021/06/26(土) 10:33:59.86ID:G/mKJlN/0
>>536
儚い即ち美しい
https://www.youtube.com/watch?v=xUmblqROuqc&;t=119s
2021/06/26(土) 13:11:52.43ID:E99miMeF0
>>554

反則。渡辺明が羽生善治相手に「打ち歩詰めでしか詰まない」、
つまりどうしても一手緩むという状態に誘導して大逆転した将棋がある。

ちなみにその将棋は竜王戦という超賞金の高いタイトル戦7番勝負の
第4戦でそこまで羽生3連勝。勝てば初代永世竜王という称号が手に入る
特大の大一番。

そこから渡辺が4連勝して、その後も勝ちに勝ちまくって初代永世竜王を得た。
2021/06/27(日) 00:40:48.59ID:0jjN1uVU0
ジジイが全員VBに精通しているような書き込みだなw
できる方が珍しいわ
2021/06/27(日) 02:17:27.81ID:2eQpjaFea
講習会に詳しいのは行ったことがあるからだろう
爺に囲まれてあんちゃん凄いねとか言われてその気になってるとかw
2021/06/27(日) 02:20:06.10ID:favEm2Rt0
VBAに講習会なんてあるんか
ああいうのはやって覚えるしかないと思うんだが
聞くだけで頭に入るものなのかね
2021/06/27(日) 05:16:57.44ID:MR++vtd90
vbはただなおもちゃ
2021/06/27(日) 08:31:22.77ID:ySH5QuZbM
職業訓練所のパソコン教育なんかでVBAの講習とかやっているような気がする
2021/06/27(日) 20:06:05.72ID:RFqQo4zbH
たいがいの講習会は、ジャンルに関係なく「やった気にさせて集金する」のが目的のビジネスだぞ
2021/06/27(日) 21:00:25.66ID:+XzpOzer0
新入社員の時間稼ぎ研修とテキストの販売、暇なジジババのボケ防止もある
2021/06/27(日) 21:04:32.62ID:favEm2Rt0
そもそもジジババがvbaなんて覚えられるのかっていう
しかもたかが講習会で
2021/06/27(日) 21:08:42.34ID:favEm2Rt0
講習会程度で覚えられるジジババなら
そもそも講習会なんて行かないでも
少しググったらあっという間に学習しそうな気がするし
2021/06/27(日) 21:22:38.61ID:0jjN1uVU0
そのジジババ様の年齢の範囲によるのでは？
50〜70歳位まではパソコン世代だからVBもバリバリやっていたのでは？
2021/06/27(日) 21:35:38.31ID:QMPxOv6Kd
前も書いたが、その世代のジジババだれもがパソコンはあろかVBAを書けると思っているのか？
理数系ジジババならまだしも、VBA自体できる方が珍しいんだよ。
まあ確かにMS-DOS世代にはなるのかな。
2021/06/27(日) 21:49:49.69ID:+XzpOzer0
かねと時間があるんだからやらせとけよ
2021/06/27(日) 21:55:10.26ID:favEm2Rt0
今スクラッチやってるような子供らなら
余裕でマスターするのかな
2021/06/27(日) 22:50:25.64ID:+t9PlDuj0
できるできない以前に地味だし興味持たない気がする
2021/06/27(日) 23:21:32.21ID:favEm2Rt0
じゃあ、その小学生が仕事するにあたって必要に迫られたときの話で頼む
2021/06/27(日) 23:50:44.99ID:RFqQo4zbH
義務教育の敗北とか言うやつがいるけど、そもそも習ったことをちゃんと覚えてるのは全体の2割以下だぞ
2021/06/27(日) 23:51:31.91ID:favEm2Rt0
じゃあ今の小学生の5人に一人くらいはVBAできそうね
2021/06/27(日) 23:56:00.43ID:I7nWR1yV0
VBAなんて習わずとも、やる気さえありゃ誰でも出来るだろw
できないやつはやる気ないだけ。
2021/06/27(日) 23:58:16.02ID:favEm2Rt0
そうは言いますけどね…できない人はまじでできないらしいのよ
聞いた俺も半信半疑だけど
2021/06/28(月) 01:19:12.30ID:h3Ys8kQv0
動作性IQと言語性IQがそれなりにあって、それなりに忍耐力があれば、かな
2021/06/28(月) 02:10:43.58ID:F/qdDxsQ0
稀に最初から出来る奴がいるとかいないとか。
Excel初日で基本的な事すべてマスターする天才が
生まれ持った才能ってヤツですかい？
2021/06/28(月) 02:32:15.76ID:ZzNlwTs9a
出きる奴もできない奴もいる
それがどうした？
所詮他人事
579デフォルトの名無しさん (ﾜｯﾁｮｲ 8f01-zwXB)
垢版 |
2021/06/28(月) 04:35:24.99ID:rxnegQx20
右から、例えば右から4番目の位置に文字を挿入したい場合はどのようにしたら良いのでしょうか？
1.256とか.526のように右から4番目の位置に「.」を入れたいもので
どなたか教えて頂けないでしょうか？
2021/06/28(月) 05:00:17.13ID:Zc0gwfde0
vba 文字列　挿入

でぐぐる
2021/06/28(月) 05:04:49.59ID:Zc0gwfde0
てか、それ数値として1000で除算するとかじゃだめなのか
582デフォルトの名無しさん (ﾜｯﾁｮｲ 8f01-zwXB)
垢版 |
2021/06/28(月) 05:26:15.69ID:rxnegQx20
>>580
そのように検索したら左から数えるパターンは出てくるんですけど右からのは見つからなかったんです
583デフォルトの名無しさん (ﾜｯﾁｮｲ 8f01-zwXB)
垢版 |
2021/06/28(月) 05:28:00.69ID:rxnegQx20
>>581
そうすると.526で表したいものが0.526となってしまうんです
注文が細かくて申し訳ありません
2021/06/28(月) 05:47:04.54ID:Zc0gwfde0
まぁいろいろやり方はあるんだろうけど
ドットの左側に何があっても依存しないようにするなら
例えばこんな感じとか

Sub tessssssssssss()
Dim source As String
Dim result As String

source = "12345"

result = Left(source, Len(source) - 3) & "." & Right(source, 3)

MsgBox result
End Sub



result = Replace(source, Right(source, 3), "") & "." & Right(source, 3)
でもいいし
2021/06/28(月) 05:49:28.04ID:PSeEXwsm0
>>579
やりたい事がいまいち分からんが
Cells(1 , Columns.Count - 4).Value = 1.256
って話なのか？
2021/06/28(月) 05:55:00.62ID:Zc0gwfde0
数値であることを生かすなら


Sub teeeee()
Dim source As Double
Dim result As String

source = 12345

result = Replace(CStr(source / 1000), "0.", ".")

MsgBox result
End Sub
2021/06/28(月) 07:02:02.08ID:JPrptPG4a
ゼロの時とか注意しなくていいのかな
2021/06/28(月) 07:20:57.91ID:PSeEXwsm0
あ、文字列の右から四番目ね
ちゃんと読んでなかったわ
1000で割ったあと
If x < 1 Then
y = Right(x, Len(CStr(x)) - 1)
Else
y = CStr(x)
End If
って感じとかどうだい？
xはDouble型かCurrency型、yはString型
2021/06/28(月) 07:26:34.40ID:sS5e2Tlr0
>>578
他人事じゃねーんだよ…VBAできるやつが職場に一人しかいないんだよ
それどころか関数の初歩を扱えるやつも2人居る程度っていう
属人化一直線だろこれ
2021/06/28(月) 08:07:31.41ID:immco5jO0
>>589
なら君が覚えればいい
ほら二人になった
2021/06/28(月) 08:40:50.68ID:JyFka1OjM
ごめんその一人は俺だ
2021/06/28(月) 08:48:16.64ID:JyFka1OjM
ID変わったけどおれは589な
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。