Excel VBA 質問スレ Part50 [無断転載禁止]©2ch.net

2017/08/27(日) 12:40:17.57

!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!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 質問スレ Part49©2ch.net
http://mevius.2ch.net/test/read.cgi/tech/1498410914/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/09/13(水) 15:46:41.67

おまえら>>128にパフォーマンステストの結果が載ってるのになぜ見ない

[lookupテーブル件数:200k, lookup回数:25kの結果]
- VLOOKUP: 11.97sec
- VBA Dictionary: 0.45sec (※Dictionaryの生成時間は含まない)
- DOUBLE TRUE VLOOKUP: 0.05sec

VLOOKUPで最後のオプションをFALSEにするとリニアサーチだから遅い
TRUEにするとバイナリサーチだから速い O(N)とO(log N)の違い
ただ見つからない場合に不都合が出るからそれを解決するためのDOUBLE TRUE VLOOKUP
同じリニアサーチでもVLOOKUPが単純な二重ループより数倍速いのはC/C++使って最適化してるから

2017/09/13(水) 15:47:56.64

>>147
なるほどー
これは速い
勉強になった

>>124
余談だけど、こんなやり方もどうぞ
コード量は少なさなら一番
速度は>>147の方が速かったけど

Range("A1:A30000")="vlookup(Sheet!A1,Sheet2!A:A,1,false"
Range("A1:A30000").value=Range("A1:A30000").value

2行目は式を消してる

2017/09/13(水) 15:50:55.04

>>149
ごめん、いろいろとおかしかった

Range("B1:B30000")="vlookup(Sheet1!A1,Sheet2!A:A,1,false"
Range("B1:B30000").value=Range("B1:B30000").value

2017/09/13(水) 16:03:25.39

ほんとグダグダで申し訳ない
しばらくROMります…

Range("B1:B30000")="=vlookup(Sheet1!A1,Sheet2!A:A,1,false"
Range("B1:B30000").value=Range("B1:B30000").value

2017/09/13(水) 23:54:00.93

>>147
あー
> b = Sheet2.Range("A1:A5000").Value
でvalue(のみ)を配列につっこめるんか、あー

ありがとう(・ω・)ノ

2017/09/14(木) 00:05:19.65

>>124で処理時間高速化の質問させてもらった者です

>>131
ありがとうございます！
このスレの内容にあるようにセルを配列に入れてから、if文は配列同士で比較して、結果も配列で取得するように修正しました
配列の値を、一度にセル範囲に出力するコードに修正したら８分前後かかっていた処理が、１分～2分前後になって、処理時間がめちゃめちゃ早くなって快適になりました

みなさんが言われてるように、VBAでワークシート関数を使用した場合の処理時間は、
おなじみオフィス田中さんのページに、配列をセル範囲に出力するのと同じぐらいの処理時間が高速だと書いてありますね
3万行と比較する列データが、複数シートで複数列だったので、次回同じような処理を作成する時は
VLOOKUP用の一時シートを追加して、3万行の列を一番左の列の検索キーにして、比較列はVLOOKUPで取得する実装をしてみます

2017/09/14(木) 08:15:22.18

>>153
分単位はかかり過ぎだと思うなぁ。
データや環境の違いがあるから、純粋に比較はできんだろうが、124の内容を素直に読んでコード書いて動かして見たが、100msecかからんかったよ。
ちな、
3万行のデータを配列1に丸ごと代入
5千行のデータを配列2に丸ごと代入
配列2から辞書を作成
配列1を先頭から順に見て、辞書に存在しない値を消す
3万行データの隣に配列1を丸ごと貼る

2017/09/14(木) 08:29:32.22

配列にして一括で読み書きする
これが全てだよ

2017/09/14(木) 10:18:54.39

VBAにも新規参入者がいて20年くらい前の話題が新たになされるのにちょっと感動した

2017/09/14(木) 11:15:17.22

Windows10のアップデートでIEオブジェクトの挙動がまた変わったらしい？
データ収集とかしてる人はアップデートしない方がいいかも

2017/09/14(木) 12:34:44.93

配列オブカリビアン

2017/09/14(木) 12:36:58.88

この期にIEオブジェクトをわざわさ生成するやり方はやめたらいいと思う

2017/09/14(木) 12:39:57.29

vbaでスクレイピングはねぇ

2017/09/14(木) 12:42:41.16

>>157
EdgeではなくIEの挙動が変わったのか?
にわかには信じかたいが。

2017/09/14(木) 14:27:44.29

あるシートに所属するプロシージャから
自分の所属するシートを参照するにはどうしたらいいのでしょうか？
プロシージャを他のシートにコピペしたら
コードを書き換えなくてもコピペ先のシートを参照するようなコードを
書きたいのですが

2017/09/14(木) 14:33:45.54

>>162
シートモジュールは、その中で完結する処理を書く場所なので、
シートを飛び越えた処理を行いたいなら標準モジュールに書くべき。

2017/09/14(木) 14:54:53.92

>>163
いや、むしろシートを飛び越えないでほしいんですが
シートで完結した処理にしたいのでシート名や番号による
シートの指定を排除して、所属するシートのセルを参照したいのですが
検索して調べるとセルを参照する方法としては
シート名を決め打ちする方法ばかりが出てくるので困っているのです

2017/09/14(木) 15:38:59.34

Active Sheet とSheet名以外でSheet 特定できるんだっけ？

2017/09/14(木) 15:49:13.64

application.callerでチェックボックスの動きの判定をするようにしたらメチャ重いんだが、これなんとかならない？

2017/09/14(木) 15:52:46.83

>>162
Sub foo()
Debug.Print Me.Name
End Sub

何故かthisworksheetは存在しない
Meを使う

2017/09/14(木) 15:53:31.32

セルはもちろんこんな感じね
Sub foo()
Debug.Print Me.Cells(1, 1)
End Sub

2017/09/14(木) 15:54:13.48

>>166
http://15g.jp/post-314/
これ使っても駄目＿

2017/09/14(木) 15:57:20.47

>>169
なるほどイベント抑止か。
ありがとう、やってみる

2017/09/14(木) 15:58:45.31

>>164
シートモジュールに直書きする場合はSheetsの部分を省略してCellsやRangeから書ける。

シートを指定しない場合の振る舞いが、
標準モジュールではActiveSheet（見えているシート）だったものが、
シートモジュールではそのシートに限定されるという変化をするので併用する場合は注意が必要。

2017/09/14(木) 16:00:47.13

標準モジュールに書いて、対象シートはsetした方がいいと思うけどなぁ

2017/09/14(木) 16:02:42.23

>>167
ありがとうございます。
まさに求めていた回答です。Meとは気づきませんでした。

2017/09/14(木) 18:24:24.22

>>169
うへえ。
確かにそれは効果が高いが、それだけでOKとか、どんだけレベル低いんだ?

むしろ速度を意識したプログラム書いてる奴にとってはそれやっても速度なんて変わらんのだが。

2017/09/14(木) 18:59:59.93

>>174
ではレベルの高い方法をどうぞ

2017/09/14(木) 19:19:27.73

>>175
速度はコードによるから～でOKなどというものじゃない。
別に、意識してコード書かなくても下記の後半部分にあるようなコードになる。
その上で速度を上げようと意識すれば一番最後のようになる。

http://excel-ubara.com/excelvba4/EXCEL228.html

2017/09/14(木) 19:23:47.78

それで駄目ならマルチプロセスにする。
適用出来ないことも多いけどな。
objEx1=CreateObject("Excel.Application")
を複数作ってそれぞれに独立した計算をさせる。

2017/09/14(木) 19:34:05.01

>>176
ありがとう、ここまで出来るとは思わなかった
他にも関数で高速化極めてて驚いたわ
良いものを見れた

2017/09/14(木) 20:04:51.07

シート作ったりセルに書き込んだりというエクセル側の操作をすると、
その度にイベントが走ることになるから、これを如何に抑えるかってのが重要なんだけど、
最初から全部覚えようとするとパンクする。

2017/09/14(木) 20:30:17.25

どんだけ頑張ってコード書いても、大量の演算は結局ピボットの方が高速なんだよな

2017/09/14(木) 22:08:17.65

For i = Lbound(X) to Ubound(X)

a = MATCH関数でXを検証

if XとMATCH関数が一致 Then

For j = Lbound(Z,2) to Ubound(Z,2)

Z(k,j) = cells(a,j-1).value

k = k + 1

next j

end if

Debug.print i

Next i

Xは要素が3万ほど
シートの列数も3万ほどでXと同じ値を格納
シートの列数は50程度

これでDebug.printの表示感覚が1秒ごとくらいなんだけど遅いですか？
30000 * 50 = 150000ループ
実に8時間ほどで納得行かない遅さなんです

2017/09/14(木) 22:14:39.02

>>181
ファイルを上げてくれないか
実際に試してみないと分からん

2017/09/14(木) 22:16:42.03

>>181
そのコードの処理を見る限り、早くする方法はいくらでもあるけど、
処理がくっそ遅いMatch関数使って何かやってるんだから処理速度的にはそんなもんじゃないの。

2017/09/14(木) 22:18:51.12

何をするプログラムなのか最初に書いてくれないと、どこを観点に見ればいいかわからない

まあ、とにかくRangeを二重ループで触っちゃイカンよ

つーか、>>124と同じ課題か？

2017/09/14(木) 22:22:13.96

>>182
仕事用なんですいません…

>>183
MATCH関数遅いんですか？
元は3万行のシート回してたけどそれも遅かったんでMATCH関数使ったんですが

2017/09/14(木) 22:33:58.37

もしかして学校課題か何かか。三万行って。

2017/09/14(木) 22:37:11.21

MATCHもmatch_typeに1か-1を指定した時はバイナリサーチだから遅くないよ
0を指定してるとリニアサーチだから件数に比例して遅くなる

2017/09/14(木) 23:03:43.05

学校の課題なら手伝わんぞ、それはカンニングだw

2017/09/14(木) 23:08:26.96

>>186
駆け出しのマです

>>187
少ない件数なら激早なんですけど多いと影響あるんですね

仕事だから検証に時間さくわけにもいかないけど納得行かないんですよね
連休に試してみますね

2017/09/14(木) 23:20:59.58

>>189
上司に聞いてみたら？恒久的に超早くなりそうなんで何時間か遊ばせてもらえませんかって
家でも研究中といえば良い
俺が上司なら、ルーチンワークは最優先で効率化させるけどな

2017/09/14(木) 23:22:39.03

マ？
クベ？？

2017/09/14(木) 23:37:20.66

仕事でプログラマやってんなら、それこそ会社に理解があろうがなかろうが検証時間取れないなんて事はないだろう。
どっちにしろ>>124と条件が被ってるんで>>147のtest2を参考に作り直せば速度的にはどうにかなるんじゃないの。

2017/09/15(金) 00:05:39.06

緑郎？

2017/09/15(金) 05:58:01.90

駆け出しママ？

2017/09/15(金) 12:58:58.26

>>172
オブジェクト変数多用は速度低下の一因になるぞ

2017/09/15(金) 13:29:55.54

駆け出しのマトリ？

2017/09/15(金) 17:41:48.27

表示シートのセルA1に『SD11』と入力してからコマンドボタン1を押したらマスターシートのA列をFINDで検索かけて下に一行ずつ表示シートの項目別にそれぞれ転記するにはどうすればいいですか？
検索まで出きるんですが、転記とループのやり方が分かりません。
https://i.imgur.com/Bd3WIPk.jpg
https://i.imgur.com/3IPhNPk.jpg

2017/09/15(金) 19:01:40.44

>>197
たぶんこれ、マスターシート？の一行目が項目になっている事から、
編集→テーブルでテーブル化してフィルタで絞ってコピペした方が早いんじゃないの。

種類の所だけ

Sub foo()
　For Each x In Range("A1:A12")
　　　if Len(x.Value) Then y = x.Value Else x.Value = y
　Next
End Sub

みたいな形で空白を埋めるようにして。

2017/09/16(土) 07:57:41.80

どっちがマスターシートかすらわからないのは俺だけなのか？

2017/09/16(土) 08:55:03.94

動物記を書いた方

2017/09/16(土) 08:57:29.36

それはファーブル

2017/09/16(土) 09:10:57.56

シートンさん、涙

2017/09/16(土) 11:39:45.69

>>201
父をたずねて三千里の旅に出るよ...

昆虫記

2017/09/16(土) 17:35:52.97

excel2010使ってます。

apiを使ってアプリケーション外の任意の座標のピクセル情報を監視していますが、視覚的に監視している場所がわからないので、当該場所にbitmapを最前面に描画したいのですが、良い方法はないでしょうか？
あるいは、マウスのカーソルをその位置に描画する。とかも考えています。

2017/09/16(土) 18:35:05.61

>>204
愚問だけど
なぜにVBAなんだ？

2017/09/16(土) 19:17:26.63

>>204
WIndow作ってWM_PAINTで描画(GDI/GDI+)
Excelで直接やらなくてもいい気がするけど

2017/09/16(土) 21:10:59.05

>>206
昔、そういうプログラム書いてたな。
CreateCompatibleDCとか。

GDI+はステータスバーの数字を取得する為に使ったことがある。
よくあるウインドウハンドルから取得する方法やUIAutomation使う方法で取得出来なかったんで直接Bitbltかなんかで描画してるとしか思えなかった時に。

2017/09/17(日) 15:05:48.02

vbaでpdfをこのようにバイナリ変換？して仕事で使うサイトにpostしたいのですがどうすれば変換できますか？
https://imgur.com/iztKsA6.jpg　（普通のブラウザで送信した際の通信データを出力したもの）
ググった結果出てきたバイナリ変換？は2種類試しましたが↓変換はされるのですが形式が違うのか上手くいきませんでした（文字化けの感じも違いました）

strfilenameにはpdfのフルパスが入ります
Function GetFile2(strFileName As String) As String
Dim strFile As String
Dim nFile
' Grap the file
nFile = FreeFile
' Open strFileName For Binary As #nFile
Open strFileName For Binary As #nFile
strFile = String(LOF(nFile), " ")
Get #nFile, , strFile
Close #nFile
GetFile = strFile
End Function

Function GetFile(strFileName As String) As String
Dim FileContents() As Byte, FileNumber As Integer
ReDim FileContents(FileLen(strFileName) - 1)
FileNumber = FreeFile
Open strFileName For Binary As FileNumber
Get FileNumber, , FileContents
Close FileNumber
GetFile = StrConv(FileContents, vbUnicode)
End Function

2017/09/17(日) 15:23:31.58

>>208
pdfは元々バイナリファイル
それをテキストエディタで開けばその画像みたいになる
エディタで開く時のエンコーディングが違えば文字化けの見た目も変わる

postするときになんで変換しないといけないの？

2017/09/17(日) 15:37:36.74

>>209
普段のブラウザでpdfを投稿した際のpostデータを解析したらpostしているデータの中でpdfを>>208の画像の形で投稿していたので
excelで投稿する際も自分のpcにあるpdfをテキスト状に？変換してpostするものだと思いました
自分としてもファイルのフルパスだけ指定して投稿できたら楽だとは思うのですが・・・

2017/09/17(日) 18:33:42.58

そしてこれが>>208のマクロでpdfを変換してvbaから投稿した時のpostしているデータです
https://i.imgur.com/0LlxHf3.png
明らかに文字化けの雰囲気が違うこれだと投稿したpdfを開こうとしても「画像データに不足があります」と出てpdfが開けません
postデータは同じツールで表示していますのでvbaでの変換の方法に問題があるのかと思ってます
>>208の画像がこの画像と違ってどういう形式？なのか分かれば調べようもあると思うのですがいかがでしょうか

2017/09/17(日) 19:10:29.54

バイナリ変換とか変なことをするからややこしくなっている
データの解析なんてせんでいい
ファイルは素直にファイルのまま扱えばok

http://www.excel.studio-kazu.jp/kw/20140404154224.html
で、ここ見ておもったんだけど、htmlファイル作ってform用意して、submitすればいいだけじゃない？
ファイルが何個もあるとめんどくさいけど

2017/09/17(日) 21:01:40.83

>>212
前にそちらのサイトも参考にさせて頂いて、投稿はできたのですがpdfが開けなくて、
送信データももっとひどい文字化けになってしまい諦めてました
https://imgur.com/p1huKGY.jpg
unicodeで送信しているのを調整する必要があると書かれていたのですがそれが原因でしょうか・・・

ちなみに自分の使い方としてはそのサイトのようにグループウェアのキャビネットに投稿する形では無く、
仕事で使っているサイトのフォームで投稿する際に添付ファイルとしてpdfを付けるのが目的なのですが
下の方に書いてあるのはSet objIE = CreateObject("Internetexplorer.Application") 的なIEに直接vbaでsubmitさせるメソッドの事でしょうか？

今のところ、投稿する際にプルダウンや入力フォームで様々な値を入力しなければならなくて、
添付ファイルが無い状態での投稿は問題無く行えるようになったのですが
添付ファイルだけはどうにも壊れてしまうというのが現状なので何とかpdfもこのままpostできないかなぁ・・・というのが現状です

説明が下手で申し訳ないのですがどなたかアドバイス頂けたらと思います

2017/09/18(月) 11:37:33.30

セルB4から始めて、右に8列‘’○‘’を順番に書き込んでからB5に下がってまた8列書き込む。それを10行繰り返すにはどういうコードになります？

2017/09/18(月) 12:09:05.81

>>214
Forで二重ループ
Cells(5, 2)から始めて必要な列数だけ○を書き込む処理を10行分行うだけ

2017/09/18(月) 12:10:08.02

>>215
Cells(5, 2)から始めて→Cells(4, 2)から始めて

2017/09/18(月) 12:28:31.10

ネットワーク上のフォルダにファイルを保存する時、
初回時のみ若干保存に時間がかかります。
一度実行したあとにすぐ実行すると、
既にネットワーク接続が確立しているからなのか、比較的早く保存できます。
保存は普通にsaveasで、UNCパスで保存しているのですが、
この初回保存時に時間がかからずに保存できる方法ないでしょうか。

2017/09/18(月) 12:39:51.48

>>214
「セルB4から始めて、右に8列‘’○‘’を順番に書き込んでからB5に下がってまた8列書き込む。それを10行繰り返す」コード。

2017/09/18(月) 13:39:45.60

>>215
>>218
ありがとうございます。頑張ってやってみます。

2017/09/18(月) 15:00:22.35

>>217
VBAの問題じゃなくてネットワークやSMBプロトコルの問題じゃないかなあ。
或いは名前解決問題も含んでいるとか。

2017/09/18(月) 15:03:30.32

>>219
全部"○"なの?
Range(B4:I13).Value="○"
じゃ駄目なの?

2017/09/18(月) 15:33:37.57

http://imgur.com/MSCp7vw.jpg

シート2で選択した人の時間データをシート1からシート2の各セルにコピペしたいです

イベントプロシージャで名前変更時にマクロ起動は出来ました
名前検索&シートを跨いだコピペがどうしても出来ないのでご助力下さい

2017/09/18(月) 16:32:44.21

>>222
Accessでデータ管理してSQLで取り出すのが一番苦労がないと思うんだが。

2017/09/18(月) 17:38:30.84

>>222
普通にVLOOKUPで引っ張ってくれば
マクロは必要ないのではなかろうか。

どうしてもVBAでやりたいなら
WorksheetFunction.Matchで検索してみよう。
シート間コピペはRangeの前にワークシートオブジェクトを指定すればできます。
範囲でやる場合はValueを書かないとだめです。
Worksheets("シート2").Range("*:*").Value = Worksheets("シート1").Range("*:*").Value
実際には決め打ちじゃなくてCellsで検索結果に応じて可変にすればよいでしょう。

2017/09/18(月) 18:28:54.10

>>221
実際には別シートの値をみて条件付けてYESなら右に一個ずつ値を引っ張りたいだけです。

2017/09/18(月) 20:17:48.27

>>222ですがコピペ記述できました助言ありがとうございました

Sub

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim name As String
Dim r As Variant

　　Set ws1 = Worksheets("シート1")
　　Set ws2 = Worksheets("シート2")
　　name = Worksheets("シート2").Range("*").Value
　　r = Application.WorksheetFunction.Match(name, Worksheets("シート1").Columns("a"), 0)
　　
　　Application.ScreenUpdating = False

　　ws1.Activate
　　ws1.Cells(r, 4).Select
　　Selection.Resize(1,6).Select
　　Selection.Copy
　　ws2.Range("a6:a11").PasteSpecial (xlPasteValues)

　　Application.ScreenUpdating = True

End Sub

シート切り替え時の画面ちらつきを消すために見よう見まねでScreenUpdatingを入れました
期待通りの動きをしてくれてますがもっと上手い記述を参考程度に教えていただきたいです

VLOOKUPだと直接セルに入力する場合があってその時困るのでVBAでやってみようと思った次第です
ACCESSは諸事情で使えません

2017/09/18(月) 20:45:41.88

この小汚いコードなんとかなりませんか？
https://i.imgur.com/PH6sTKr.jpg

2017/09/18(月) 20:58:13.91

>>227
まず写真じゃなくてプリントスクリーンで

2017/09/18(月) 21:06:56.54

>>226
たぶんマクロ記録を改造しているんだと思いますが
Select、Activateはする必要なく
転記処理は
ws2.Range("a6:f6").Value = ws1.Range(ws1.Cells(r,4),ws1.Cells(r,9)).Value
この1行だけでいけるはず。
=の右辺と左辺が同じ大きさの範囲である必要あり。
範囲は実際のシートのに書き換えてお試しを。

2017/09/18(月) 21:26:16.39

>>228
パソコンのネットがゴミ過ぎてパソコンからは書き込めないんです...

2017/09/18(月) 21:38:27.20

>>227
応用シートを変数に突っ込む
WithにRange指定まで突っ込む
RangeをCellsにして列参照を変数にする
オフセットの数値を変数にする
これでループで変数をインクリメントしていけばスッキリしそう。

2017/09/18(月) 21:41:20.89

>>227
Sub foo()
Str_NowRng = FindRange.Offset(0, 1).Address
Str_ShuName = FindRange.Offset(0, 1).Value
Set 基礎 = Worksheets("基礎")
Set 応用 = Worksheets("応用")
i = 4
Do While Str_ShuName = "A"
For j = 1 To 5
応用.Cells(i, j + 1).Value = 基礎.Range(Str_NowRng).Offset(0, j).Value
If j = 3 Then 応用.Cells(i, j + 1).Value = 応用.Cells(i, j + 1).Value + Val(MSUN)
Next
With 基礎.Range(Str_NowRng).Offset(1, 0)
Str_ShuName = .Value
Str_NowRng = .Address
End With
Loop
End Sub

設計が腐ってる臭いがするので、小手先直したところで意味ないと思うけど。

2017/09/18(月) 21:46:33.83

>>229
うおおおおおお
その1行だけで動きました
ありがとうございます

マクロ記録ではなくググった記述の真似ですが検索が下手だったみたいです

2017/09/18(月) 21:49:23.00

userform2のcaptionをそのままuserform8のcaptionに代入使用しています。
型が一致しませんのエラーが出ます。
先ほどまで問題なく動いていたのですが、突然出るようになりました。
UserForm8.Caption = UserForm2.Caption
や
Dim FormName as string
FormName = UserForm2.Caption
Userform8.Caption = FormName

でもエラーが出てしまいます・・・。

2017/09/18(月) 21:59:25.32

>>234
何でそんなことやってるか知らんけど…

標準モジュールに書いたら動いた
Sub foo()
UserForm1.Caption = UserForm2.Caption
End Sub

とりあえずイミディエイトウィンドウやウオッチ士気で、
UserForm2.Caption
に何が入ってるか見てみたら？

2017/09/18(月) 22:04:09.39

Str_NowRng=FindRange.Offset(0,1).address
Str_ShuName=FindRange.Offset(0,1).Value
With Worksheets(〃基礎〃)
i=4

Do While Str_ShuName=〃A〃
Worksheets(〃応用〃).Range(〃B〃&i).Value=.Range(〃Str_NowRng〃).Offset(0,1).Value
Worksheets(〃応用〃).Range(〃C〃&i).Value=.Range(〃Str_NowRng〃).Offset(0,2).Value
Worksheets(〃応用〃).Range(〃D〃&i).Value=.Range(〃Str_NowRng〃).Offset(0,3).Value+val(MSun).Value
Worksheets(〃応用〃).Range(〃E〃&i).Value=.Range(〃Str_NowRng〃).Offset(0,4).Value
Worksheets(〃応用〃).Range(〃F〃&i).Value=.Range(〃Str_NowRng〃).Offset(0,5).Value

Str_Name=.Range(〃Str_NowRng〃).Offset(1,0).Value
Str_NowRng=Range(Str_NowRng).Offset(1,0).address
i=i+1

Loop

i=14
Do While Str_ShuName=〃B〃
中身同じ
Loop

i=32
Do While Str_ShuName=〃C〃
中身同じ
Loop
こんな感じです。
パソコン見ながら打ったので間違って打ってたらごめんなさい。

2017/09/18(月) 22:04:38.56

〃応用〃
なんかかわいい

2017/09/18(月) 22:05:45.55

>>236
とりあえず>>232以上の回答はないと思うぞ

2017/09/18(月) 22:09:21.04

>>232
ありがとうございます。すごい助かります。感謝です！

2017/09/18(月) 22:09:42.61

>>238
はい。ありがとうございました。

2017/09/18(月) 22:09:56.31

>>235　ありがとうございます。　他のユーザーフォームではできましたので、USERFROM8自体がおかしくなっている？
直前にエクセルが動作停止しました。その際に壊れてしまい、USERFORM8のオブジェクト名を理解できていないようです。
そんなことはありますでしょうか？

2017/09/18(月) 22:13:12.43

>>241
さーねぇ。まぁあるかないかならあると思うけど、安易に答えは出さないけど、
どうでもいいマクロならさっさとuserform8消して新しく作り直すほうがいいかもな

**デフォルトの名無しさん** (JP 0H35-+tv6) · 2017/09/18(月) 22:25:10.48

>>226
>>229の言う通り

ws1.Activate
ws1.Cells(r, 4).Select
Selection.Resize(1,6).Select
Selection.Copy
ws2.Range("a6:a11").PasteSpecial (xlPasteValues)

は

ws1.Cells(r, 4).Resize(1,6).Copy
ws2.Range("a6:a11").PasteSpecial xlPasteValues

でOK。
1行ずつ意味を考えて上達して行こう。
ところで、PasteSpecialの後ってカッコ無しでスペースだよね。

2017/09/18(月) 22:34:50.16

>>227
インデント統一してる?
俺は4つ(標準)にしてるけど、少しでもズレてる所があると気持ち悪い。
こういうコード貰ったらCtrl + A押して、
Shift + Tabを連続20回ぐらい押してしまう。
んで、全ての行のインデント振り直す。

それから、2つのシート使ってるようだけど自分ならそれぞれを変数に入れるな。
1つはWith使ってるから良いとして、もう1つだけでも変数に入れる。
まあ、自分の場合は基本的にブックから省略しないのでWithや変数に入れないと長くなるんだわ。

それからDo While～Loopの中だけど、Offsetとiの併用してるのは何で?
全部iで書き直したら?
そうすればStr_ShuNameとかStr_NowRngとか必要無くなるよ。
Str_ShuNameの場所もi使って1つずつ下がって行くんでしょ。
Do Whileの条件もi使って表したらStr_ShuNameへの代入も必要無いよね。

それから、Range("B" & i ).Valueって記述だけど、RangeじゃなくてCells使えば列方向もj使って繰り返しが使えるよね。
まあ、真ん中だけ少し違うから恩恵少ないけど。

2017/09/18(月) 22:45:05.41

>>244
sublimnetextとか使ってみてはどうだろう
コピペするだけであら不思議、自動インデント
https://i.imgur.com/rexlwm0.png

VBEと連携できたら便利なんだけど、残念ながらできない

2017/09/18(月) 23:05:45.45

>>245
自動でやるならmougでsmart indenter紹介してたな。
多分連携できるはず。

2017/09/18(月) 23:28:32.94

>>246
うお、こんな便利なもんあったのか
ありがとう早速試してみる