Excel VBA 質問スレ Part51

2017/11/08(水) 11:26:30.13

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

2017/11/22(水) 20:20:06.35

出来ればkまでにしたいね。
実際は思うようにいかなくて俺もnぐらいまで使ったことある。
でも1文字辞めることもある。

2017/11/22(水) 20:57:00.17

>>180
あんまり1文字変数は使わない
処理行数や処理列数などを使ってるわ
年取ると覚えるのが大変なんだよ

**答えはI～N** (ﾄﾞｺｸﾞﾛ MM41-ZIVp) · 2017/11/22(水) 21:18:19.80

>>176
> そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり
嘘書くなよ...
X, Y, Z が整数型とかあり得んわ

2017/11/22(水) 21:46:50.38

最近デザパタに凝っててイテレーターパターンやってるけどなかなかいいよ
まあいかに多重ループしないかは大事だわ

2017/11/22(水) 21:49:25.89

イテレータと多重ループ回避って関係あったっけ？

2017/11/22(水) 21:55:38.62

>>185
いやまあ、見た目上ループ変数は減るからw
よってるからよくわからんなってるわ
すまん

2017/11/22(水) 22:48:54.39

VBAでイテレータパターンて難しそうだ

ループをなくす、って方向の方が良さそうです。

2017/11/22(水) 22:51:49.31

方向の方ｗ

2017/11/22(水) 23:20:15.38

Excel2010です。
文字列を引数に文字列を返すユーザ定義関数を作りました。
アドインにしてチーム内に配布しようと思ってます。
試しに新規ブックで使ってみたところ、開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
関数の中の処理を全て消しても保存確認メッセージがでます。
文字列を返すだけの関数なので、保存確認メッセージを出ないようにしたいのですが、どうすればよいでしょうか。

2017/11/23(木) 00:02:49.97

>>189
中身を見ないとわからない
Function Foo(bar As Long)
Foo = bar * 2
End Function
と作ってみたけど
＞開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
この減少は起きなかったよ
何か別の所に原因があると思う

2017/11/23(木) 06:39:11.72

>>189
それって要するにvlookupの事？

2017/11/23(木) 13:05:29.27

>>190
簡単に書くとこんな感じの関数です。

Function Kubun(code as string) as string
if (left(code,3) = "123") then Kubun = "A"
end function

if文が大量に続くので共通化してアドインで配布しようと思ってます。
これをKubun.xlbとしてアドインフォルダに保存しました。

新規BookでセルA1に123、セルB1に =Kubun(A1) と入力したところ
セルB1にAと表示され、関数は機能しました。
その後保存した新規Bookを開き何もせず閉じようとすると保存確認メッセージがでます。

2017/11/23(木) 13:22:13.30

>>192
再計算されてるから
値は変化しないけどセルの内容は更新されていると予想

2017/11/23(木) 13:42:02.49

>>192
アトインって *.xla じゃなかったっけ？
*.xlb だとなんかいいことあるの？
（ツールバー設定とかを記憶するファイルだと思ってた）

2017/11/23(木) 14:06:43.11

>>192
xlbってなんだっけ？
xlamじゃないの？

2017/11/23(木) 14:07:06.07

かぶった

2017/11/23(木) 14:35:16.43

すいません。拡張子は違ったかもしれません。

2017/11/23(木) 15:49:16.74

>>192
ネットで検索してみると回答は>>193氏の「再計算」で正解だと思うよ
そのユーザー定義関数の中で使ってる関数の中に再計算が発生する関数が含まれているのでは？

簡単な例でいくと新規ブックのセルA1に=TODAY()と入力し確定、そのブックを保存し閉じる
そのブックを開くとTODAY関数による再計算が発生するため何もせずに閉じようとしても保存確認出る
それと同じことでは

2017/11/23(木) 17:02:33.93

>>198
192の通り使っているのはif文とLeft関数だけです。
試しに関数の中の処理を全て消してみたのですが、
状況は変わりませんでした。

2017/11/23(木) 17:02:38.88

>>114
要らない

2017/11/23(木) 17:22:13.82

>>199
おそらく

A1が変わってないときに、=Kubun(A1) という式が必ず同じ値を返すという「保証」ができないので
B1セルが変更されている可能性を排除できない
ということで変更されている（可能性がある）と判断されてる

ユーザ定義関数は中身チェックしないで非決定的だって判断だな
シート開くときに再計算するかどうかのオプション設定なかったっけ？最悪手動かな

2017/11/23(木) 17:30:51.41

>>199
その関数にDebug.print 文を仕込んでおいて
呼ばれたかどうかを確認してみたら？

2017/11/23(木) 19:42:47.05

>>201
保存確認メッセージを防ぐ方法はないですかね？

>>202
関数は呼ばれていますが、それだと何か方法ありますか？

2017/11/23(木) 20:00:32.08

>>203
関数が呼ばれると言うことは変更されると言うことだから
保存確認ダイアログが出るのが普通

savedプロパティを変更する方法とか
calculationプロパティをマニュアルにする方法とか
方法はあるかもしれないけど
他の問題が起きるようになるかもしれない

2017/11/23(木) 23:21:24.29

Application.DisplayAlerts = False
のこと？

2017/11/24(金) 11:41:27.83

質問です。Excel 2016で、Autofilerされたシートの内容を参照するために

（wsはワークシートオブジェクトです）
Debug.Print ws.AutoFilterMode　　　　　→この結果は True
Debug.Print ws.AutoFilter.FilterMode　 →この結果も True
Dim rgFilter As Range
Set rgFilter = ws.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)

For Each e In rgFilter
　　Debug.Print e
Next e

こんな感じで参照しようとしてるんですが、
参照してるシートでフィルターが掛かっていても、いなくても
同じように全件（25行なら25行）がイミディエイトに表示されます。
絞り込まれた結果のみを表示するためにはどうしたら良いのでしょうか？

2017/11/24(金) 11:52:22.18

>>206
Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

2017/11/24(金) 12:05:42.58

>>207
素早いご回答ありがとうございます。
修正してみましたが、今度は絞込みあり/なし何れも1行だけになりました

何だか難しい操作ですねえ…

2017/11/24(金) 12:12:04.66

Dim MaxRow As Long
MaxRow = ws.Range("A" & Rows.Count).End(xlUp).row

これを追加して、
Set rgFilter = ws.Range("A1:A" & MaxRow).CurrentRegion.SpecialCells(xlCellTypeVisible)

にしてみても、結果は>>206と同じになりました。
んー謎です

2017/11/24(金) 13:34:47.29

>>203
あるにはあるけどクソめんどくさいぞ
すべてのセルの初期値保持しといて、閉じるときに確認して値に変更なければsavedをtrueにしてから閉じる、とかね

2017/11/24(金) 16:52:13.42

Sheets("Sheet1").Columns(2).Insert Shift:=xlToLeft
Sheets("Sheet1").Columns(2).Insert Shift:=xlToRight

この二行の動作の差が分からないので
違いを教えてください

**デフォルトの名無しさん** (JP 0Heb-ULKC) · 2017/11/24(金) 17:34:32.78

>>211
現在のcolumns(2)の中身が左にずれるか、そのままか、かな？
当てずっぽうだけど。

2017/11/24(金) 19:18:42.44

>>204
>>210
アドインをあきらめます。
ありがとうございました。

2017/11/25(土) 12:49:09.41

エクセルVBAですがあるシートで入力し別のシートに転記するというコードを記入しているのですが
For文でやろうとするとうまくいきません。元々のシートの行が11行目から始まり転記先のシートが2行目から始まるのでネストを使って以下のようにコードを組んでみたのですが2行目の入力データが転記先のデータに2行追加されてしまいました。
1行目と2行目はそれぞれ別のデータが記述されておりそのまま転記できるようなコードにしたいです。
もしかしたら、そもそもforだとだめなのかもしれません。ちなみに入力するデータが11行目から始まり終わりは20行目で終わります。
がとりあえず繰り返し構文でできればかまいません。下記のコードをどう変えればいいか教えてください。
Sub 登録()
Set syougai = Sheets("障害記録") 'シート名にて指定しているので変更しない事
Set itigi = Sheets("一時データ") 'シート名にて指定しているので変更しない事
Const hiduke As Long = 19 '日付列の定数
Const gouki As Long = 17 '号機の列の定数
Const era As Long = 18 'エラーコードの列の定数
Const hyou1 As Long = 11 '障害集計表上の定数
Const kisyu As Long = 21
Const syuukei1 As Long = 21
For i = 2 To 3
For j = 11 To 12
itigi.Cells(i, 1).Value = syougai.Cells(j, hiduke).Value '日付
itigi.Cells(i, 2).Value = syougai.Cells(j, gouki).Value '号機
itigi.Cells(i, 3).Value = syougai.Cells(j, kisyu).Value '機種
itigi.Cells(i, 4).Value = syougai.Cells(j, era).Value 'エラーコード
itigi.Cells(i, 5).Value = syougai.Cells(j, syuukei1).Value '集計データ
i = i + 1
j = j + 1
Next j
Next i
End Sub

2017/11/25(土) 13:36:20.17

〉〉214
ネストの使い方間違ってると思うのですがどう直せばいいのかわかりません。

2017/11/25(土) 13:39:02.15

>>214
itigi　じゃなくて itiji にしろ
シート名「にて」はやめてシート名「で」にしろ
i = i + 1 と j = j + 1 は不要なので消せ

2017/11/25(土) 13:55:20.06

>>214
単純にシートで開始行がずれているだけなら

For i = 2 to 3
itigi.Cells(i, 1).Value = syougai.Cells(i +9, hiduke).Value
以下略
Next

でいいんじゃないでしょうか
ループはネストすると
内側のループだけ全部回して外に抜ける、を外のループの回数
だから、ネストでは意図した動作にならないでしょう
>>216も言っているけど、Nextで変数に勝手に+1されるから足さなくていい

2017/11/25(土) 14:08:02.51

ありがとうございました。
できました。

2017/11/25(土) 15:25:06.65

てか hiduke なんて変数名使うくらいなら「日付」のほうが10倍まし

2017/11/25(土) 17:03:29.39

そもそもVBAでやることなのかな
転記先の一時データのシートのセルに障害記録シートのセルを参照する式を書くだけで良くない？

2017/11/25(土) 17:17:31.37

変数名ぐらい自由にしてやれw

2017/11/25(土) 17:23:34.66

>>214
値を取得しながら転記しようとするから混乱する
コレクションなり配列なりに一回格納してから転記するようにすればネスト要らん

2017/11/25(土) 17:30:52.78

>>221
変数名は大事でしょ
こいつの変数の付け方は最悪に近いわ
代入の式見なかったらなんのことだかわからねー

2017/11/25(土) 17:32:47.09

本人できたって言ってるのにグダグダ言う奴ウザイわ

2017/11/25(土) 17:35:56.02

hidukeと日付のどちらか選べと言われたら、hidikeを選ぶ。

2017/11/25(土) 17:37:28.74

仕事内容を記録するエクセルを作成したく、
シート名は各個人名でフォームを開くボタン設置。
登録用に必要項目をフォームで作り、転記するサンプルマクロを書いたんですが、今後必要項目が増えたり、減ったりしたときに人数分フォームを弄ったりマクロ書き換えるのは面倒ななんですけど、一個をものを共有し使用するにはどうしたらいいですか？

各個人のエクセルを開き、作ったボタンで共通のエクセルを開きフォームを開いて転記させるとか？

共通のエクセルを読み取り専用で開き書き込む時に自分のエクセルを開いて転記させるとか？

なんかうまいやり方ないですか？

2017/11/25(土) 17:42:32.82

>>225
何が言いたいんだW

2017/11/25(土) 17:52:49.62

>>226
シート毎つまり人毎にボタンを作るなら
そのボタンをクリックした時にその人独自の値をグローバル変数とかに代入して
フォームは共通のものを呼び出す

フォームに入力されたものを書き込む時は
さっきのグローバル変数を見て
書き込み先のシートとかを特定する

2017/11/25(土) 17:53:40.22

>>228
同時に複数の人がそのエクセルファイルを使わない事が前提だけど

2017/11/25(土) 18:31:33.42

>>229
同時に開くことがあるんですよ。

2017/11/25(土) 18:33:58.83

>>226
一つのエクセルファイルを複数人で同時に使うのはいろいろ大変だと思う。
共有共通にせず個人毎に違うファイルを使ってもらって、
仕事内容記録フォルダに入ってるファイル全てをまとめて集計するマクロを作った方がよさそ。

2017/11/25(土) 18:34:51.02

>>230
データはなんでもいいからDBに書き込んでエクセルはインプット画面として割り切りなさい
マジで

2017/11/25(土) 18:38:42.16

エクセルの共有はマジで地雷
運用を見直した方がいい

2017/11/25(土) 19:34:05.10

>>230
入力するのが一人で他の人が見るだけなら問題ない

複数人が同時に書き込むならエクセルじゃなくて
ウェブアプリとかにした方が良いと思う

2017/11/25(土) 19:37:11.17

mdbを複数ユーザーで同時に掴めるなら、SQLでデータを投げれば動作するんじゃないの。
入力フォーム作りがクソ面倒くさいからエクセルでやるのは愚策中の愚策なのは確かだけど。

2017/11/25(土) 19:44:15.61

>>223
健康のためなら死ねるタイプ？w
ごめんけど理解不能

2017/11/25(土) 19:46:52.39

どうしてもエクセルだけでやりたいなら、フォームとデータでファイル別けるべきだね

2017/11/25(土) 20:15:23.25

>>236
いや、常識だろ
自分でメンテするにしたって嫌だわ

2017/11/25(土) 20:24:47.32

フォームボタンをクリックした時に
グローバル変数とかに時刻なり、その人のIDなりを記録して
編集中である事が分かるようにしておく

書き込んだらクリアする

他の人がフォームボタンをクリックしたら
編集中かどうかチェックして
編集中なら後で再実行するようにダイアログを出す

2017/11/25(土) 20:38:06.48

>>238
お前の常識とか知らんし興味もない。
他人の変数名にケチ付けるのは常識じゃなくてエゴだろ

2017/11/25(土) 20:40:07.39

React では、データアクセス(CRUD)部分は、
Flux の、Store という部分で、 UI とは完全に分離させている

nmp の、immutable パッケージで、データを変更不能にしたり

2017/11/25(土) 20:41:41.46

日本語でおk

2017/11/25(土) 21:19:48.45

変数名は結構考えるけどな。
普段なら辞書サイトでその意味の英単語から付けることが多い。
API使えば変数名の重要性が分かる。

2017/11/25(土) 21:53:57.63

>>243
それは変数名と言うより引数名でしょ？
それだったら確かに大事

2017/11/25(土) 22:00:33.02

個人的に引数含む変数名に半角英字は避けるように徹底してる。
予約語と被らなくなるし徹底すれば読みやすいしね。

一般的に、名前に半角英数使うのはコンパイラが2バイト文字対応していない事が理由なんで、
対応しているコンパイラには積極的に2バイト文字で投げた方がいい。

2017/11/25(土) 23:35:03.26

>>244
一年前に作ったコードの宣言部分と代入部分見ずになんの値か把握できる自信があるならどうぞ
まだシステムハンガリアンの方がポリシーあるだけマシ

2017/11/25(土) 23:36:51.22

レスの相手間違えたわ
>>240
に対するレスね

2017/11/25(土) 23:47:28.66

>>246
俺が>>244で言った意図は、「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。
それに反論しているのかな？

2017/11/26(日) 09:00:43.39

大事じゃない変数なんてないんだよ
みんなそれぞれに役割があって、一生懸命に生きてるんだから

2017/11/26(日) 09:30:00.33

>>248
それは違うだろ
まあ、使い捨てのテストなんかは適当にやるけど
長い変数名が嫌なのは打つのが面倒だからなんだろうけど、そもそも同じ変数が何度も出てくる時点でリファクタリングの臭いがするわけでな

2017/11/26(日) 11:10:58.75

>>250
ローカル変数に限っていうなら、上の方がよくて下に行くにしたがって悪くなると思っている

・ローカル変数がない
・tmp とか a とか x とかいう名前で十分わかる
・適切な名前をつけることでよくわかる
・適切な名前がつけられていないことで混乱する
・適切な名前がつけられているにもかかわらず混乱する

そうだよね？

2017/11/26(日) 11:15:24.53

＞・適切な名前をつけることでよくわかる
＞・適切な名前がつけられていないことで混乱する

同じことじゃね？

2017/11/26(日) 11:16:38.23

ソンタクして変数名にvarを採用

2017/11/26(日) 11:24:16.70

>>252
いや、
やれば改善する可能性があるのにやっていない状態、ということで下位になっている

2017/11/26(日) 11:44:51.98

>>249
底辺のお前も頑張ってるもんな w

2017/11/26(日) 11:50:05.48

>>251
ローカル変数がないの意味がよくわからん
値渡しの引数はローカル変数なんだけど
それを除外したとしても、変数なしで書ける処理は限られてくるし

2017/11/26(日) 12:54:24.61

>>256
不要な変数を作るなってことだろ
そのまま代入すりゃいいのに>>222みたいにいったん変数に格納したがる奴は一定数いる

2017/11/26(日) 12:56:36.30

VBAからどんどん離れて公開オナニーになってきた

2017/11/26(日) 13:04:15.84

>>251
tmpとか、座標系の短い変数はきちっと関数化して処理の分断ができてるときに限るけどね
大体そんなもんじゃないかな
>>257
配列に格納してから云々はそれぞれの処理を独立させることであとから見通しがよくなるんだよ
たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったときなんかにループしながら直接吐き出してるとネストが深くなって可読性が低くなる
それぞれ独立してれば関数化するのも楽だしな

2017/11/26(日) 13:33:08.74

>>259
> たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったとき
その時にやればいいだけ

2017/11/26(日) 14:16:29.61

>>260
一回変数にいれることでそれがなんの値か、というのを明示するって意味もある
意味があるからやってんだよ

2017/11/26(日) 14:40:03.00

>>261
>>214ならコメントで十分

2017/11/26(日) 15:20:43.89

>>256
日付が変わっているからIDは違うが、元の俺の発言は>>248の
＞「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。
なんだよね。
つまり引数は別として狭い意味のローカル変数について語っている。

それと、＞変数なしで書ける処理は限られてくるし
については、良い～悪いの序列の話なので、「変数なしで書けるくらいスコープが狭い方が良い」ということさ。

2017/11/26(日) 16:18:08.52

( ・ω・)∩ｼﾂﾓｰﾝ
範囲A1:C10の値をまとめてD1:F10に代入するときにさ
直接＝で結ぶと駄目で
一旦変数で
tmp=range(A1:C10).value
range(D1:F10)=tmp
とかいうふうにすればオッケーなのって何でなのん？

2017/11/26(日) 16:56:09.10

>>264
Range(A1:C10).Value = Range(D1:F10).Value

でいけると思うけど？

2017/11/26(日) 17:06:14.25

ごめん逆
>>264のやりたいことは
Range(D1:F10).Value = Range(A1:C10).Value
だね

2017/11/26(日) 17:18:28.93

値のコピーは
Range("D1:F10") = Range("A1:C10").Value

2017/11/27(月) 09:03:15.77

範囲が同じなら
R1.Value=R2.Valueで行けるな、普通に
Set R1=R2はなんか無理
R1=R2でいけない理由はよくわからん
RangeオブジェクトのデフォルトプロパティってValueだよね？

2017/11/27(月) 12:39:02.79

>>268
Rangeの既定のプロパティは、ドキュメント上だとItem

実際はちょっとトリックがあって、_Defaultっていう隠しプロパティ
こいつがアドレス指定しない場合はValueを返す

2017/11/27(月) 22:21:45.18

>>268
Setを使うということはオブジェクトということだぞ。
それはRangeそのものを代入することを意味する。
A1セルにB1セルを代入など出来よう筈が無い。
A1セルのアドレスがB1?
意味不明だろ。

2017/11/27(月) 22:54:13.44

indirectの悪口はそこまでだ

2017/11/27(月) 23:55:45.37

indirectが未だに理解できない

2017/11/27(月) 23:58:34.84

>>270
rangeオブジェクトの実体はアドレス情報ってことか？

2017/11/28(火) 02:02:42.04

>>273
???
それだけじゃねーだろ。
が、それも含むのは当然。

2017/11/28(火) 07:27:08.64

indirectとかsumproductとか、便利なんだけどいまいちよく解らんよな。

2017/11/28(火) 09:30:34.94

忘れちまえよindirectの事なんか

2017/11/28(火) 09:41:03.64

>>270
Set の左辺は変数だから当然と言えば当然
A1セル自体は変数じゃなくてオブジェクトだからな

2017/11/28(火) 10:01:09.63

>>274
いやまあ、セル同士を直接セットが無理っぽいのは何となく感覚でわかるんだが、どういう動きでそうなってんのかなーって気になるわけよ

2017/11/28(火) 12:43:56.96

Range()みたいなのって返却値がRangeクラスなだけあってRange()自体は関数だから

2017/11/28(火) 14:06:44.13

Rangeオブジェクト
Rangeプロパティ
Range関数
Rangeでチン
これが区別できれば完璧