Excel VBA 質問スレ Part66

■ このスレッドは過去ログ倉庫に格納されています
11000
垢版 |
2020/05/10(日) 13:43:45.00ID:Nkoph0aj
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定
2020/05/31(日) 02:50:27.87ID:0yzq8zA/
>>398
subプロシージャで調べてみ
2020/05/31(日) 02:50:46.87ID:6kaO8G32
>>399
理解できるように勉強してるので教えてください
図々しいと思いますが
2020/05/31(日) 02:51:03.70ID:6kaO8G32
>>402
調べてみます！
2020/05/31(日) 02:52:54.38ID:wkpADETk
>>401
じゃあ転職しろよw
406デフォルトの名無しさん
垢版 |
2020/05/31(日) 02:56:41.46ID:2V+gQfrN
>>403
この段階でわからないこと自体無理なんだよ
仕組みを理解しなければ無理
公式だけ暗記して終わりの馬鹿には無理なんだよ
2020/05/31(日) 03:25:44.77ID:C8J9R7KI
>>375
ありがとう
でもだめだったわ
2020/05/31(日) 03:27:49.96ID:C8J9R7KI
>>403
VBA 引数
　
でぐぐる
2020/05/31(日) 04:00:28.58ID:KExNe49d
エクセルにはリファレンスマニュアルが付属していて、追加でインストールするとF1ヘルプで言語仕様まで見られる。
マニュアルがパソコンに入ってなかったら、管理者からエクセルのシーディーを借りてね。
2020/05/31(日) 05:00:56.16ID:pJwiV8F0
>>398
sub() って文法的に作れないはず
マクロが動かないのは文字列のせいじゃないかもよ
2020/05/31(日) 08:40:31.29ID:6kaO8G32
ごめんなさい
sub test ()でした
2020/05/31(日) 08:57:53.05ID:C8J9R7KI
Sub Test0001()
　Dim i As Integer
　
　For i = 1 To 2
　　Dim ary()
　　
　　MsgBox "ここにブレークポイント設定"
　　
　　ary = Sheet1.Range(Cells(1, i), Cells(5, i))
　Next i
End Sub


A列とB列にあるいずれも5行目までの値を配列に取得するだけのプログラム
For中の一回転目はA列、2回転目はB列

こうやってForの中でaryを宣言し直せば、aryは初期化されると思い込んでたんだけどダメなのな
2回目にMsgBoxで止まったときにaryみるとA列のデータがaryに残ってしまってる
これってメモリ上に残ってて同じ所を参照し直すからなのかな
Eraseすれば消えるからいいんだけど、気づくのに時間かかったわ
こんな初歩的なこと分かってないでよく今まで組んできたもんだ
2020/05/31(日) 09:44:52.93ID:8XtoheO9
すんません今時ブロックスコープない方がアレなんで
2020/05/31(日) 09:49:53.97ID:4iioSPSZ
>>398
それはLEFT()が動かないのと同じ理屈。
普通LEFT(A1,5)とか書くから。
2020/05/31(日) 10:44:01.62ID:GCI/GpSg
>>412
そういう動作を知るためのテストなんじゃね
残っていても上書きされるんだから問題ないし
2020/05/31(日) 10:47:02.74ID:GCI/GpSg
>>411
sub test("文字列")
ってことか？
2020/05/31(日) 11:53:35.71ID:df9CBrpd
>>398
呼び出し元とプロシージャそれぞれ一行ずつ書いてくれよ
2020/05/31(日) 12:34:25.47ID:GcFwCYXw
>>412
VBAのDimは書いた場所に関係なく、コード開始時に1回だけ実行される仕様
モジュールの最後に書いても結果は変わらない
Sub Test()
　　Dim a()
　　For i = 0 To 9
　　　　Dim b()
　　Next
　　Dim c()
End Sub
2020/05/31(日) 12:42:20.77ID:C8J9R7KI
>>413
あーなるほど
そこを考えるんですか、勉強になりましたわ
ただ、改めて疑問に思ったのは、同じブロックスコープ内で再度宣言してもエラーでないのはどういうことなんだろーとか
Forの中での宣言だと繰り返しといっても宣言部分は無視されるってことかな
ま、同じ事しないようにちゃんとおぼえておこ・・・

>>415
このプログラムだとそうなんだけど
ary = Sheet1.Range(Cells(1, i), Cells(5, i))
この部分が、ある条件を満たした場合のみ代入するっていうコードだとします
んで、条件満たさなかった場合には代入されないため、A列のデータがaryに残っちゃっておかしな事になっちゃってたわけですよ
自分で実際に組んでるコードはも少し複雑なものなので
2020/05/31(日) 12:44:02.11ID:C8J9R7KI
>>418
ありがとうございます
全然知らなかったです
ちょい調べてみます
2020/05/31(日) 13:55:17.54ID:W/GxV3g0
>>401
お前は周りにない知識が多少あることに優越感持ってるだけで仕事できる人間の言い分に見えんのよなぁ
2020/05/31(日) 14:13:51.20ID:GcFwCYXw
仕事ができる人なら、コードを書くのに何人時かかりますっていう見積もりをざっくりでいいから依頼主にちゃんと提示する
それで依頼を取り下げるかどうかはクライアントの決めること
想定外のトラブルで納期が遅れそうならホウ・レン・ソウして迷惑をかけないようにする

難しいからって愚痴るのはまったく建設的じゃないし、なんの解決にもならない
2020/05/31(日) 15:00:37.19ID:py7qoVDy
なんでそんなにかかるの？
どこに時間かかる要素があるの？
やればいいだけでしょ？
○○さんはもっと早かったよ？
次の仕事があるんならそれでいいよ？
2020/05/31(日) 15:05:53.60ID:ztYbO9r8
報連相つらいよね…プログラムの難しさよりも報連相の方がつらい…
425デフォルトの名無しさん
垢版 |
2020/05/31(日) 16:55:11.56ID:uJxLAScO
すみませんド素人ですがご教授下さい。

「あるセルを選択して実行すると選択したセル行のA〜D列以外が全て1.1倍される」
というマクロを組みたいです。
ネットで調べて少し作ろうとしてみましたが
知識がありません。

Sub 倍掛け()
Dim SELU As Range '変数名の絶望的センス名
For Each SELU In Selection
SELU.Value = SELU.Value * 1.1
Next SELU
End Sub

Sub 選択したセルの行全選択()
ActiveCell.EntireRow.Select
End Sub

この2つのプロシージャが何となく使えるのかすらわからないのですが試行錯誤しています。
A〜D列を除外というやり方もわかりません。

すみませんが教えていただけないでしょうか。
2020/05/31(日) 17:39:48.04ID:w6MuXuh+
>>425
Excel for Windows 95で動作確認。

Sub Record1()
Application.Worksheets(1).Select
For I = 5 To 20
For J = 1 To 20
Cells(J, I).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) * 1.1
Next J
Next
End Sub
2020/05/31(日) 17:50:31.21ID:w6MuXuh+
>>426 「To 20」のところは適当に変更してね。
2020/05/31(日) 18:34:56.03ID:Gn3uBA4V
>>425
選択した範囲が処理の起点なので、、

　　Dim r As Range
　　For Each r In Selection
　　　　If r.colunm < 5 Then GoTo nextLoop
　　　　If r.Value = "" Then GoTo nextLoop

　　　　r.Value = r.Value * 1.1
nextLoop:
　　Next

こんな感じ？
行全体を対象にしたいみたいだけど、その時はFor文の前に

　　Selection.EntireRow.Select

を差し込めばいい。
１万列処理されるけど、、、
2020/05/31(日) 18:39:34.39ID:Gn3uBA4V
>>428
綴りを間違っとった
　　　　If r.Column < 5 Then GoTo nextLoop

文字列セルを避けたければ、、以下も追加
　　　　If Not IsNumeric(r.Value) Then GoTo nextLoop
2020/05/31(日) 19:13:07.80ID:4iioSPSZ
>>424
ああつらい。
上司がメール読まないタイプだと特に。
431デフォルトの名無しさん
垢版 |
2020/05/31(日) 21:17:59.30ID:yITbq02Q
馬鹿に馬鹿が答えて滅茶苦茶
簡単な質問だとしゃしゃり出てくるからおかしくなる
2020/05/31(日) 22:48:28.20ID:6kaO8G32
>>416
そうです！！
カッコ内に文字列です！
2020/05/31(日) 22:49:04.73ID:6kaO8G32
>>417
呼び出し元…すみません、知識不足でした…
434デフォルトの名無しさん
垢版 |
2020/05/31(日) 23:06:33.42ID:2V+gQfrN
>>433
馬鹿には無理だと悟れよ、馬鹿
2020/06/01(月) 18:21:12.15ID:JWhdLJJl
お前もだ
436デフォルトの名無しさん
垢版 |
2020/06/01(月) 18:38:31.30ID:4Uk/Vywe
異動した先輩が作ったマクロに少し追加しようと思って標準モジュール見てみたら
乱れ雪月花
地ずり残月
かすみ二段
パリィ
何これ？？？と思ったらゲームの技名なのか
見事なプロシージャだけど関連性が全くわからんかった…
2020/06/01(月) 18:48:48.99ID:jizMt7mj
Sub 乱れ雪月花
　　風雪即意付け
　　月影の太刀
　　三花仙
End Sub
2020/06/01(月) 19:40:30.70ID:o1fpUPSE
取り敢えずマジックナンバーだらけのを保守しろとかいうのはやめてー
セル参照も起点ぐらいは定数宣言しといて欲しい
2020/06/01(月) 19:48:00.59ID:xzpno8fJ
1列目の2行目から下にEXCELファイル名があります。(同一ファイル名あり)
それらを全て開く、処理、閉じるを繰り返すと時間がかかるので、同一ファイル名は一度だけ開いて閉じるをやりたいのですがどしたらいいですか？

1列目をソート
Do until 1列目
　？？？
　　処理

loop

ファイル名は数字(000001.xlsなどで桁数は同じ)
？？？の所で開くor閉じるをやりたいのですがどうしたらいいですか？
2020/06/01(月) 20:00:55.95ID:Ct20WAoS
パリィは草
2020/06/01(月) 20:10:21.26ID:MDu2hpC8
>>439
ひとつ上のセルが同じファイル名なら
なにもせず次へ
2020/06/01(月) 20:42:10.79ID:eRBcTATy
重複禁止の処理は連想配列（VBAだとDictionaryオブジェクト）を使うと便利だよ。

既に連想配列に存在するなら何もしない、存在しないなら処理して連想配列に登録する。
Valueに結果を入れておいて、実行結果をシートに出力とかするとカッコイイよ。
2020/06/01(月) 21:05:54.37ID:Otvtnefa
結果をシートに出すなら配列使わんと重複削除してから開いた方が速くて楽じゃん
444デフォルトの名無しさん
垢版 |
2020/06/01(月) 23:34:24.04ID:5NIHbXOS
まだ22歳の学生社長が得た､23億円の｢使い道｣
あの橋本環奈をCMに使うバイトアプリの雄
https://toyokeizai.net/articles/-/319511
中学時代の車いす生活から、17歳で起業するまで
https://www.advertimes.com/20200130/article306925/
ミャンマー発 AIダイニングアプリ「Yathar」をしかける日本人起業家
https://roboteer-tokyo.com/archives/14840
自分の視野は「世の中の0.001%」と自覚せよ。ビジネスチャンスを掴む4つの習慣
https://headlines.yahoo.co.jp/hl?a=20200511-00010001-srnijugo-life
アプリの視聴率がわかる　高専卒起業家の独創力
https://www.nikkei.com/article/DGXMZO46695580Y9A620C1000000/
１万人の若者を支援！インターンが日本を変えるかも！？　glowshipの若き創業者・足立卓也氏インタビュー
https://sogyotecho.jp/glowship-adachi-interview/
大学生起業家が設立１年で20億円調達！ 単発バイトアプリに外食企業など出資【タイミー】
https://foodfun.jp/archives/3490
2020/06/02(火) 00:29:20.96ID:hEtyTtKQ
俺ならこうかな。

Sub サンペイグッドカメラ()
　どっきりカメラのキシフォート
　カメラのドイ
End Sub
2020/06/02(火) 00:35:26.89ID:0adtr6kX
VBAだしそういう名前面白いかもなw
簡単だけど保守したくないやつは、もう先輩や同僚の連絡先を名前にしようかな
447デフォルトの名無しさん
垢版 |
2020/06/02(火) 01:36:20.19ID:rfJHDu9M
Sub 馬鹿専用()
馬鹿には無理()
馬鹿は帰れ()
End Sub
2020/06/02(火) 02:01:31.67ID:cr7Q5ahz
Sub 鱸()
鰯()
鰹()
鮪()
End Sub
2020/06/02(火) 02:07:31.79ID:SOkkDiQ6
>>439
Ruby なら重複要素を許さない、集合を使って、

require 'set'

filenames = <<"EOT"
a/foo.txt
a/bar.txt
a/foo.txt
EOT

set = Set.new

filenames.each_line do |filename| # 1行ずつ処理する
filename.chomp! # 末尾の改行を削除する

# 同じ要素は追加できないので、追加できた時だけ、そのファイルを読み込む
p File.read( filename ) if set.add?( filename )
end
2020/06/02(火) 02:24:02.46ID:cr7Q5ahz
>>439
[データ]→[重複の削除]　って機能あるけど
2020/06/02(火) 04:12:46.96ID:xDFjMRpH
>>439
ファイル名がリストアップされてる列があるなら
そこでまず回して重複排除したファイル名の配列 as Stringをつくればいいだけじゃ
てかその程度も思い浮かばないとなるとプログラミング向いてないような気がするわ

重複排除のプログラムって基礎の基礎でやるよ

便利な機能を使う前に順次・分岐・繰り返しでほぼほぼなんでも出来ちゃうことを学んだ方がいいわ
C言語の勉強するとそういうの鍛えられる感じする
2020/06/02(火) 08:37:46.24ID:ZejDuh3H
>>364
Readme読む限り、ちょっとこれはと思う。
一定間隔はあまり良くないな。
出来ればWM_DRAWCLIPBOARD捕まえるのが常套手段。
2020/06/02(火) 08:39:17.76ID:ZejDuh3H
>>386
まあ、プログラマ―としては糞コードの見本を強要されるわけだからねえ。
2020/06/02(火) 08:41:06.23ID:ZejDuh3H
>>398
引数という言葉を調べてみよう。
2020/06/02(火) 09:53:39.10ID:DG4jD+ms
い・・引数
2020/06/02(火) 10:17:05.52ID:ZKdkos41
いんすう、なの？
勝手に、ひきすう、って読んでた。
2020/06/02(火) 10:38:01.33ID:HxakEXb6
いんすうだと因数と間違えるから、わざとひきすうと読む慣習
458デフォルトの名無しさん
垢版 |
2020/06/02(火) 11:01:38.32ID:P+GfDheU
ソヒキスウブンカイとかあったよねー。
2020/06/02(火) 11:28:56.48ID:Bxw1Fg+T
淫吸だとエロい言葉に聞こえるからひきすうと読む
460デフォルトの名無しさん
垢版 |
2020/06/02(火) 12:59:58.61ID:86yzZ856
Sub セル2行を結合して出力()
    Sheets("雛型").Select
    ActiveSheet.Copy
 
    Dim gg As Long, rr As Long
    For gg = Cells(Rows.Count, "E").End(xlUp).Row To 11 Step -1
        Rows(gg + 1).Insert
        For rr = 5 To 31
            Cells(gg, rr).Resize(2).Merge
        Next rr
    Next gg
    HorizontalAlignment = xlCenter
    VerticalAlignment = xlCenter
    Range("A1") = "2行を結合して出力"
 End Sub

すみません、ネットで調べまくってる相変わらずのど初心者です。
セルの行挿入と結合を範囲指定して
2行を結合するのは何とか調べてできたのですが、
「セルの列挿入と結合を繰り返して
2列1行のセルにしたい」
というのができず。。ご教示頂けませんか。

理想は
「セルを2列挿入と結合をして3列1行のセルにする」や
「2列と2行の挿入と結合繰り返して2列2行のセルにする」
など、色々パターンを作りたいのですが。
ネットと入門編の本だとやはり限界を感じます。。
どなかた何卒お願いします。
2020/06/02(火) 13:09:54.31ID:YHzZdfxN
.resize(1,2).mergeとか
Range(rows(gg+1)rows(gg+2)).insertとか
2020/06/02(火) 14:39:08.29ID:cr7Q5ahz
セルの結合をマクロでやる設計者ってセンスないね
2020/06/02(火) 14:42:20.78ID:cr7Q5ahz
マクロとVBAな
2020/06/02(火) 16:30:35.51ID:wladzkcs
セル結合はなあ
2020/06/02(火) 17:14:02.72ID:3pwUYc8f
vlookupとセル結合をディスってはじめてexcel使い方として一人前
2020/06/02(火) 17:30:35.84ID:ZKdkos41
セル結合は帳票イメージでの最終手段。
467デフォルトの名無しさん
垢版 |
2020/06/02(火) 17:36:37.19ID:86yzZ856
セルの結合をする理由は
取引先の提出フォームが客先ごとに
1セルの結合の構成が本当に様々で8種類くらいパターンがあり
元のマクロで出した値の貼り付けが出来ないのが現状です。

なので元のマクロの1行1列のセルの値を
セルの構成を客先のに合わせたシートに出力
そのシートから客先提出フォームに値の貼りつけ
というのをやろうとしています。
468デフォルトの名無しさん
垢版 |
2020/06/02(火) 17:42:54.46ID:86yzZ856
>>461
すみません、どこにどう弄ったらいいか
教えて頂きたいです。
すみません、、
469デフォルトの名無しさん
垢版 |
2020/06/02(火) 17:45:43.97ID:lB7mMLW8
>>468
自分で考えろ
2020/06/02(火) 18:33:10.70ID:0adtr6kX
じゃあ8種類のテンプレでよくね
2020/06/02(火) 18:40:35.01ID:bGVvB1yX
結合したりvlookupとかしたいから、わざわざエクセル使ってるんじゃないの？
2020/06/02(火) 18:55:17.51ID:R+Y1d9Tj
セル結合された部分は別の結合とかできないから
その都度結合解除するとか
行の挿入や削除で表が壊れたり
見えなくなるプロパティがあったり
嫌な思い出しかない
2020/06/02(火) 19:17:40.08ID:xDFjMRpH
Application.OnKey ってプロシージャに引数渡せないのが残念だなぁ
これってキーごとにプロシージャ作らないといけないかね
2020/06/02(火) 19:20:48.48ID:ZejDuh3H
>>462
そんなこたぁねえだろ。
確かに問題多いけど、分かった上で使うことあるぜ。
ゴミのSendkeys使うよりはあるね。
475デフォルトの名無しさん
垢版 |
2020/06/02(火) 19:31:05.26ID:0+iVbcJA
Sub 列挿入()
ActiveSheet.Copy

Dim i As Long
For i = 32 To 8 Step -1
Columns(i).Insert
Next

End Sub
ここまでは何とか、、ってとこです。
後は指定したの行を全部何とか
2列1行のセルに
道のりが遠すぎる…
476デフォルトの名無しさん
垢版 |
2020/06/02(火) 19:38:40.44ID:xX39KyXM
データモデルに入れたデータからSQLを使ってシートに出力する方法を教えてください。

ネットになかなか情報がなくて
ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook.Connections("クエリ - パワークエリ名"), Destination:=Range("$A$1")).TableObject
から
.WorkbookConnection.OLEDBConnection.CommandText = "テーブル名"　にするとテーブルを出力

.CommandText = Array("EVALUATE CALCULATETABLE('テーブル名' , 'テーブル名'[項目名] =""検索語"" ) ")
.CommandType = xlCmdDAX
のようにするとDAX式で加工したテーブルを出力できるようになりましたが、SQLを使用する方法がわかりません。
2020/06/03(水) 03:13:14.17ID:4xNyRocT
>>475
Sub 列挿入()
ActiveSheet.Copy

Dim i As Long, c As Long, r As Long 'カウント用
Const n As Long = 2 '列挿入, 列マージ数
Const sC As Long = 8, eC As Long = 32 '開始列, 終了列
Const sR As Long = 2, eR As Long = 10 '開始行, 終了行

With Excel.Application
.DisplayAlerts = False
.ScreenUpdating = False
End With

For c = eC To sC Step -1
For i = 1 To n - 1
Columns(c).Insert
Next i
Next c

For c = eC * n To sC Step -n
For r = sR To eR
Cells(r, c).Resize(1, n).Merge
Next r
Next

With Excel.Application
.DisplayAlerts = True
End With

End Sub
2020/06/03(水) 03:29:44.75ID:4xNyRocT
あっ行別の列マージならRange.Merge Across:=Trueってのがあるのか初めて知ったわ
479デフォルトの名無しさん
垢版 |
2020/06/03(水) 17:16:57.27ID:AwTWg+pQ
すいません。関数を使って集計する方法を教えていただけないでしょうか。
index matchの組み合わせもしくは、sumifもしくはindex match sumifの複合で表示させたいです。

画像の出荷と書かれたセルに関数を入れて集計したいです。
集計は参照シートの黄色で書かれた「販売+その他出荷」の合計を表示したいです。
sumifでは縦の計算になってしまい、横の足し算が出来ない印象です。
上の数字はmatchを使った際の引用条件になると思い入れました。

説明わかりづらくてすいません。関数を教えていただけないでしょうか。
具体例のエクセルは簡単に書いてますが、実際に書くエクセルはデータが膨大なものです。
なぜかindexもうまく引用できていませんでした。


https://d.kuku.lu/ca513f39a8
480デフォルトの名無しさん
垢版 |
2020/06/03(水) 17:19:07.42ID:bl/wSmIk
>>479
死ねよ、ここは何のスレかわかっているか？
481デフォルトの名無しさん
垢版 |
2020/06/03(水) 17:31:05.68ID:AwTWg+pQ
すれ違いでしたか。。 別のスレで質問してみます
失礼します
2020/06/03(水) 18:58:22.75ID:ajKAwYcj
>>481
説明が下手な質問には答えられない
2020/06/03(水) 19:02:55.47ID:4xNyRocT
>>479
Offsetっていうセルのサイズを変える関数があるが
この集計を関数でやるのは根本的にムリだね
1,10行目の数字とかに何の関連性もないから列が特定できない
元データ正規化すんのが先だよ
484デフォルトの名無しさん
垢版 |
2020/06/03(水) 21:04:01.49ID:WzEARBto
前にも少し聞いたけど上級者はVBAどうやって作ってくもん？
そこそこボリュームのあるマクロを素人ながら作ってるんだけど
・標準モジュールにオブジェクト名付けて
そこに同じ名前のプロシージャを1つ作る

ユーザーフォームのボタンに
プロージャ名を2つや3つ並べたり　
とにかくボタンに割り当ててく
コードの表示見ると凄いシンプルに見えるけど
標準モジュールが30個とかあるんだが…
自己流だと全然だめねこれ
2020/06/03(水) 21:12:23.58ID:eXcAe8GC
そういうのは言語関係ない
上級者のコード読むなりプログラミング技法の初歩とかを勉強せえ
2020/06/03(水) 21:16:06.03ID:jxQ4kFWw
上級者じゃないんでわからんが
数こなしていくうちに上達するんじゃね
487デフォルトの名無しさん
垢版 |
2020/06/03(水) 22:45:33.09ID:DFbqrKTL
ネットで勉強してる初心者以前のレベルだけど
変数をiで宣言してるサイトが結構多いけど
テンプレ的な変数名なの？何かの略字？
2020/06/03(水) 22:54:44.44ID:fRs9+Xkd
integer
2020/06/03(水) 22:55:14.42ID:1Bet+/qH
>>487
もともとはIntegerの頭文字から
とりあえず整数型変数にはI、もっと必要な時はJ、K以下略を使うというルールを70年ぐらい前にIBMの技術者が決めて、それが今まで慣習として残っている
2020/06/03(水) 22:58:16.07ID:k+INKoSh
テーブル(ListObject)の指定列に計算結果値をLoopで書き込む処理を作ったんだけど、
ひどく遅延します。事象の原因と対策わかる方いたら教えてください。

・（同一シートの）テーブルの枠外だと同じ行数でも瞬時に終わります。
・計算結果じゃなくて 1 を埋め込むのでも遅い。
・再計算Off
・ためしにEnableEvents = false もやってみたけど効果なし。

３０００行くらいなんですが、しばらく帰ってこない感じ。
結局式埋込に変えたんだけど、その場合だと５〜６秒くらい。

テーブルなんてそんなもん、ということであればそう認識します。
詳しい方教えてください。
2020/06/03(水) 22:59:26.99ID:uWfzdzS4
>>484
モジュールが増えるのは、
他に流用するからとか、
スクロールが面倒だからとか、
そんな理由だと思うけど。

宣言は一番上派、使用する直前派。
参照設定派、CreateObject(xxx)派、
If a = True Then派、If a Then派、
色々だから気にすんなと。
2020/06/03(水) 23:02:38.52ID:k+INKoSh
>>489
iteratorが語源かと思った。
2020/06/03(水) 23:03:56.76ID:LXJ+6sS7
DEFINT A-Z
2020/06/03(水) 23:35:44.50ID:6MdsocRT
ループ変数にはiもよく使うけど、rとかcも割と使う。
列と行を入れ子にしてループ処理する時は、こちらの方が分かりやすい。
2020/06/03(水) 23:40:14.49ID:K30dfupm
>>487
古くは Fortran かな
I, J で始まる変数は無条件で整数型だった
Iがアルファベットの10番目だからという
よくわからない説もある
2020/06/04(木) 00:05:55.74ID:k3k6AIFZ
実際の慣例ではどうなのか知らないが、i〜tまでを使うって教えられた
intのtまでってことで
まあ大抵使ってもi,j,kぐらいだと思うが
2020/06/04(木) 00:09:42.42ID:L9xk6UQ0
視認性が悪いから、j とか l とか使いたくない。
なので、 i, k, n, とか適当に飛ばして使ってる。
2020/06/04(木) 00:09:53.27ID:OnK1RXVm
自分は最大nまで使うよ。
i、j、k、l、m、n
2020/06/04(木) 00:14:11.64ID:L9xk6UQ0
>>494
r は Range Loop用と決めてるから、r, c, はあまり使わない。
そんときは iR, iC ってやるな。
c は1文字入れるとき使うかも。
人それぞれやね。
2020/06/04(木) 01:00:45.24ID:BD433+5i
すみません、教えてください。<br>
caseの条件を変数で設定していると条件に一致しなくてelseに流れてしまいます。<br>
ベタ打ちで条件を記載した場合は、正しく処理へ流れるのですが･･･<br>

sub テスト() <br>
Dim a As String <br>
Dim temp As String
a = "みかん"
temp = "りんご"", ""みかん" 'ここはチェックボックスの選択によって可変にする予定

Select Case a
Case temp
Msgbox("冬")
Case Else
Msgbox("冬以外")

End Select

End sub
501500
垢版 |
2020/06/04(木) 01:02:03.80ID:BD433+5i
<BR>は誤って記載したので無視してください。
すみません。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況