Excel VBA 質問スレ Part59

2019/02/09(土) 15:12:30.70

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part58
https://mevius.5ch.net/test/read.cgi/tech/1542577644/

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

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/14(木) 22:52:59.46

>>132
まあ、普通にデータはテーブルでもてば良いだけだろ
整形は別シートででーたをさんしょう

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 00:17:44.61

>>131
外部にライブラリーなどを持たすんだから
Include　の方が近いだろ

2019/02/15(金) 00:49:30.00

よろしくお願いいたします。

VBAで、半角カナ文字列を与えると、その文字列の中にある、
ァィゥェォャュョッ　などの小さい字をｱｲｳｴｵﾔﾕﾖﾂなどの大きい字（半角カナ）に変換して返す
functionを作りたいのですが、どう書いていいのかわかりません。

ひとつずつ、ァをｱに変換、ィをｲに変換、のように書くしかありませんか？
まとめて書く方法ってあるのでしょうか？

2019/02/15(金) 01:15:28.74

Ruby のNKF とか、文字列.tr とか、正規表現とか

2019/02/15(金) 01:18:13.72

60項目7万件のjsonデータ読んで保存した。
開いたらモジュールとフォームが破損って何なんだよ。うう吐きそうだ。
10Gじゃメモリたりなかったのか？いや、それならそうメッセージがでるはず。
まさかこんなんでコード飛ぶとは思わなかったからバックアップは取ってない。
10分おきの自動バックアップのデータはあったけどデータ取るのに2日かかったからとっくに消えてる。
もう作る気おきない。
参った。

2019/02/15(金) 01:20:07.21

>>135
文字コードを差分だけ加算すればいい。

2019/02/15(金) 01:21:08.10

>>137
ざまあ
そういうのはCSVを介するのが定石だろう

2019/02/15(金) 01:23:24.10

>>135
dictionaryオブジェクトで連想配列作れば？

Dim myDic As Object
Set myDic = CreateObject("Scripting.Dictionary")

myDic.Add "ァ", "ｱ"
myDic.Add "ィ", "ｲ"
myDic.Add "ゥ", "ｳ"

Dim str As String
str = myDic.Item("ァ") #<--ここに参照したい文字を渡す

MsgBox str, vbInformation

https://www.sejuku.net/blog/29736

動くかわからんけどお試しあれ。

2019/02/15(金) 01:37:27.77

>>135
あんまり綺麗じゃないけど

Function kanacaps(s1) As String
　　For i = 1 To Len(s1)
　　　　c = Mid(s1, i, 1)
　　　　If "ｧ" <= c And c <= "ｯ" Then
　　　　　　Select Case c
　　　　　　　　Case "ｧ" To "ｫ"
　　　　　　　　　　s = 10
　　　　　　　　Case "ｬ" To "ｮ"
　　　　　　　　　　s = 40
　　　　　　　　Case Else
　　　　　　　　　　s = 19
　　　　　　End Select
　　　　　　Mid(s1, i) = Ch r(As c(c) + s)
　　　　End If
　　Next
　　kanacaps = s1
End Function

2019/02/15(金) 01:38:16.76

一部の文字列関数が、なぜか5ちゃんねる全体のNGﾜｰﾄﾞになってるんで、わざとスペースを入れてある

**136** (ﾜｯﾁｮｲ 7f2c-Ioh3) · 2019/02/15(金) 01:38:19.40

Ruby では、

str = "ァィゥェォャュョッあ"

puts str.tr( "ァィゥェォャュョッ", "ｱｲｳｴｵﾔﾕﾖﾂ" )
#=> ｱｲｳｴｵﾔﾕﾖﾂあ

2019/02/15(金) 01:43:51.10

もっとシンプルなのができた

Function kanacaps(s1) As String
　　t = "ｱｲｳｴｵﾔﾕﾖﾂ"
　　For i = 1 To Len(s1)
　　　　c = Mid(s1, i, 1)
　　　　If "ｧ" <= c And c <= "ｯ" Then
　　　　　　Mid(s1, i) = Mid(t, A sc(c) - 166, 1)
　　　　End If
　　Next
　　kanacaps = s1
End Function

2019/02/15(金) 01:46:51.97

しつこいけど、これで最後

Function kanacaps(s1) As String
　　t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
　　For i = 1 To Len(s1)
　　　　c = Mid(s1, i, 1)
　　　　If "ｧ" <= c And c <= "ｯ" Then Mid(s1, i) = t(As c(c) - 167)
　　Next
　　kanacaps = s1
End Function

2019/02/15(金) 01:53:45.99

最後と言いながらもう一度
これってまだまだコンパクトにできるパターンだな

Function kanacaps(s1) As String
　　t = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")
　　For i = 1 To Len(s1)
　　　　c = Asc(Mid(s1, i))
　　　　If 166 < c And c < 176 Then Mid(s1, i) = t(c - 167)
　　Next
　　kanacaps = s1
End Function

2019/02/15(金) 02:00:19.18

1回しか使わない変数を消した
これ以上の短縮は無理かな？

Function kanacaps(s1) As String
　　For i = 1 To Len(s1)
　　　　c = Asc(Mid(s1, i)) - 167
　　　　If 0 <= c And c < 9 Then Mid(s1, i) = Array("ｱ", "ｲ", "ｳ", "ｴ", "ｵ", "ﾔ", "ﾕ", "ﾖ", "ﾂ")(c)
　　Next
　　kanacaps = s1
End Function

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 09:21:30.82

>>147
横レスだけど
他の言語に比べかったるいけどおいておいて
変換に使う文字列または配列はfunctionの外
変数はアドレス渡し　function内で文字列を書き換え
変更が有った場合　true なかった場合false
使い勝手と動作速度を優先する
とスマホで書いてみる

2019/02/15(金) 09:40:41.96

>>147
たしかにs1を書き換えつつまたそれを返すというのは無駄だ。
ByValで受けて書き換えた結果を返すかByRefのままでSubにするかだと思う。
Booleanで返すのは今時の趣味には合わないんじゃないかな。

2019/02/15(金) 09:58:15.95

>>149
セルを書き換えるべきか書き換えないかの判断をする
全てのセルの書き換えは時間もかかるし、空白のセルもある
必要ないデータは書き換えないでいいようにする

if kanacaps(s1) then cells(i,j) = s1
のように

2019/02/15(金) 11:36:22.43

>>150
s1自体は As Stringだろ
元の質問もワークシート関係ない話のように見受けられる

2019/02/15(金) 11:44:10.23

>>151
だったら、このスレ関係ないな本当にそう思うのか？
自分の主張じゃなく要求者の状況を読まなければ意味ない
150の書き方でならシート全てを変換するfunctionも簡単にできるけど
お題を読めないのは厳しいな

2019/02/15(金) 11:49:05.00

データ量と出現頻度と、呼び出し側でのデータの持ち方がわからない限り、最適解は出せないと思う
用途はなんだろう？半角カナが通るのにカナ小文字が使えないシステムなんて、大昔のオンラインシステムぐらいしか思い付かんけど

2019/02/15(金) 11:56:15.89

>>153
今更聞いてる処がどうなの？
こんなのどっちでも簡単なのに、私は書かないけどなポリシーです

2019/02/15(金) 11:59:50.72

>>152
データソースがRangeであるか否かに関わらずs1は As String相当だろう。
件の関数が何を返すべきか（もしくはSubにすべきか）という話とは関連が薄い。

2019/02/15(金) 12:04:24.39

>>155
別にfunctionの使い方を考えないならどうでもいいじゃない
ただ誰も使わんだろ、それは言い過ぎか使うやつはいるな

2019/02/15(金) 12:06:23.85

基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？

2019/02/15(金) 12:09:16.16

>>157
不思議な意見を言う奴だな？

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 12:12:48.44

>>158
ここは、もうやめよう

2019/02/15(金) 12:42:06.25

俺は理解したいけど使うの自分ならまぁ動けば良いや派です

話題変わるけど今はselenium使えないの？
firefox操作したいけど色々なサイトのコード試しても動かんのだけど最新のseleniumVBAでfirefox操作するVBA使ってる人居たらfirefox起動からログイン処理するコード貼ってほしい

2019/02/15(金) 12:51:15.55

>>157
> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
確かに>>150は恥ずかしいなw

2019/02/15(金) 12:54:55.89

>>161
ふ～ん、でどのように？(笑)

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/15(金) 13:05:41.84

配列を使わざるを得ないなら二次元配列に変更前と変更後を並べて突っ込む

2019/02/15(金) 13:08:15.40

>>161
まさか、148で変更をBoolean返すようにしたのを前提に150を書いたけど
何も読まずに書いてる？

2019/02/15(金) 13:13:10.46

もうやばいけど、バカって好きだな

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 13:19:37.16

>>161
で、何か意見は？

2019/02/15(金) 14:34:08.07

>>163
結局そうなるよね。
一括で貼り付ければ楽なのに、わざわざ If でまだらに個別セットなんて却って遅くなる。

2019/02/15(金) 14:59:45.37

まあ、しょうがない罠
分かんないんだもの

2019/02/15(金) 15:22:25.20

> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
とか言いつつ質問者の意向もわからんのにコード書いてドヤるとか w

2019/02/15(金) 15:34:51.44

>>169
じゃあ、お前ヒントも書かずにわかるのか？
ってか、引きこもりの文盲か？

2019/02/15(金) 15:36:42.23

あっ、すまん、ヒントを書いてもわからないんだよな

2019/02/15(金) 15:43:07.43

>>167
どんだけ、アホで生きてるんjンだよ
関数の貼り付けとセルへの値の書き込すらわからんかな

2019/02/15(金) 17:36:05.74

>>170-172
だから
> 基本的なことを理解せず、ソース書くやつって恥ずかしくないのかな？
とかが不思議ちゃんて言われてるんだよ
セルへの書き込み程度でドヤるような奴だからしょうがないだろうけど w

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 18:35:03.47

>>173
うふ

2019/02/15(金) 19:18:49.62

Range("A1")="名前"
Range("A2")="住所"
Range("A3")="性別"
Range("A4")="郵便番号"
みたいな複数にわかる処理を
Range("A1:A4")="名前、住所、性別、郵便番号"みたいな感じ（もちろんこれではダメ）で
一行（一回の処理）でまとめて設定できるような方法ってありますか？

2019/02/15(金) 19:20:38.46

>>175
ある

2019/02/15(金) 19:21:12.65

Sub kanacaps(s1 As String)
とした場合、
対象配列Aの各要素A(i,j)に対して
kanacaps(A(i, j)) をループで回すだけ。
シートに書き出したければ単にAを貼り付ける。
このとき書き換えがあったかどうかを判定する必要はない。
Function なら
Function kanacaps( ByVal s As String) As String
で　A(i, j) = kanacaps(A(i, j))
これも書き換えがあったかどうかを判定する必要はない。
普通は後者を選ぶだろう。

2019/02/15(金) 19:28:49.74

>>177
これダメなやつ
最も負荷の掛かるセルへのアクセスは最小限にするべき
コードが短ければいいってもんじゃない

2019/02/15(金) 19:37:44.26

>>178
なんだよ
セルの個数の問題なのか貼り付け回数の問題なのかはっきりしろ

2019/02/15(金) 20:01:27.87

>>179
自分で処理時間計ってみれば？

2019/02/15(金) 20:18:49.96

>>175
Array

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 22:25:19.73

まあ、例えばひづ

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 22:31:54.84

スマホは書いてる途中で書き込んじゃう癖が有って申し訳ない
例えば日付を月日で表しているセルを文字列で取得すると月日の文字が取得できる
その文字をそのセルに書き込むと数値としての月日じゃあなくなるよな
不用意に変換しないことも大事なんだがな

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/15(金) 23:12:49.57

気になってshift jis の文字コードを確認してみた
If 166 < c And c < 176 Then
これは半角小文字だよ
お題は全角カタカナ小文字だろっと

2019/02/15(金) 23:38:50.38

凄いよな。
何でこうも、どんな用途に使うのかわからないような処理ばっか出てくるんだか。

そのうち、VLOOKUP(縦検索)でもHLOOKUP(横検索)でもない、
斜め検索のJLOOKUP作れとか言い出しそうだな。

2019/02/16(土) 00:29:38.87

データ処理の関数がわかんなくてお前らに横投げしてるからだろjk

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/16(土) 01:02:24.60

まあ何だな　全角カタカナの文字列に半角突っ込む奴の指示は聞かないけどな

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-1ffV) · 2019/02/16(土) 01:38:49.39

最初の質問は>>135だぞ
処理したいのは半角カナ、作りたいのはFunction、関数の返す値は修正後の文字列と仕様が明記されてるのに、どうしてBooleanだのByRefだのが出てくるんだよ
おまけに全角とか言い出すやつまで出てくるし

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/16(土) 02:12:02.80

ァィゥェォャュョッ　全角小文字
ｧｨｩｪｫ　半角小文字
書いてるのが全角だったからな

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/16(土) 02:22:26.92

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(A1,"ｧ","ｱ"),"ｨ","ｲ"),"ｩ","ｳ"),"ｪ","ｴ"),"ｫ","ｵ"),"ｬ","ﾔ")
,"ｭ","ﾕ"),"ｮ","ﾖ"),"ｯ","ﾂ")

2019/02/16(土) 05:24:29.40

>>190
ﾜﾗ

**デフォルトの名無しさん** (ｱﾒ MM6b-+q6E) · 2019/02/16(土) 05:32:17.75

素人が素人に頼むとなそうなるわな
(笑)

2019/02/16(土) 07:48:58.08

方向が変わったのは>>148がきっかけだよね

2019/02/16(土) 07:53:50.02

>>188-189
そこは最初から違和感あったわ
> VBAで、半角カナ文字列を与えると
って書いてて
> ァィゥェォャュョッ
って全角で書いてるからネタだと思って放置してたけどｧｨｩｪｫｯｭｮみたいな文字ってスマホだと入力できないのな
(いや、できるかも知れんが俺にはわからんかったのでこれはコピペで入力した）
まあそれならそうと書いて欲しい

この手の変換はそれなりに需要があるみたいで
カタカナ小さい文字変換 vba
とかでググるとそれなりにヒットする
とりあえずは
https://www.relief.jp/docs/002223.html
とかを参考にすればいいと思う

2019/02/16(土) 10:00:10.02

スマホで半角カナ小文字の入力は、俺のXperiaの場合だと「la」と入力すると全角小文字の「ぁ」になって、変換を押すと候補に半角「ｧ」が出てくる

2019/02/16(土) 10:07:20.68

フリック入力ならキーパッドの「ま」の下の「小」をタップすると小文字になって、候補に半角も自動的に出てくる

2019/02/16(土) 13:35:38.12

>>175
1) Range("A1:A4") = WorksheetFunction.Transpose(Split("名前、住所、性別、郵便番号", "、"))

2) Range("A1:A4") = WorksheetFunction.Transpose(Array("名前", "住所", "性別", "郵便番号"))

3) Range("A1:A4") = [{"名前";"住所";"性別";"郵便番号"}]

2019/02/16(土) 14:00:48.72

VBAの2次元配列って1次元配列として使えないのね。不便。

2019/02/16(土) 14:26:02.22

二次元配列は何が入ってるか分かりにくいしネストも増えやすいから構造体かクラスを使う

2019/02/16(土) 14:36:39.42

>>198
割り切ってジャグ配列をメインに使えばいい
Rangeはしょうがないけど

2019/02/16(土) 15:38:49.30

>>199
XLシートが二次元の表なんだから難しくないだろ。
三次元なら立体を思い浮かべればいい。四次元になると時間をイメージかな。そこまでやったことないからわからん。
三次元までのネストの深さは気にならないな… ifとかで増えるにしても。増えすぎるなら内部を切り出すかな。
まあ、仕様によってどう作るかはいろいろだけど。

2019/02/16(土) 16:03:55.03

n次元 = n階層の木構造とイメージするのが単純で良いと思うが

**デフォルトの名無しさん** (JP 0H4f-mnSR) · 2019/02/16(土) 16:14:59.54

>>201
難しくないのにわからんって馬鹿？

2019/02/16(土) 16:41:41.01

n次元より配列の配列の...の方が再帰的に扱いやすい

2019/02/16(土) 17:53:27.66

>>203
日本語不自由？
難しくないのは二次元
わからんのは四次元

2019/02/16(土) 22:42:47.76

モジュールで
Dim arr() As String
Dim aaa As String
ReDim arr(2)
arr = ThisWorkbook.arr
aaa = arr(0)

ThisWorkbookに下記を設定
Public Function arr() As String()
Dim arra(2) As String
arra(0) = "日本"
arra(1) = "米国"
End Function

Thisworkbookの配列を呼び出したいんですがどこが間違っていますか？

2019/02/16(土) 23:01:11.68

>>206

arr = arra
End Function

2019/02/16(土) 23:03:14.34

エラーメッセージ何よ。

2019/02/16(土) 23:06:17.40

>>208
インデックスが有効範囲にありません

2019/02/16(土) 23:10:54.03

>>209
ああ、よくある、結局原因がよくわからないやつね。
試したら、>>207が正解だったわ。

面白いな。Thisworkbookに書いてあるものを呼ぼうなんて、
考えたこともなかったから、それが原因かと思ったわ。

2019/02/16(土) 23:17:04.90

そもそも配列名とプロシージャ名が同じところもおかしい

2019/02/17(日) 00:05:03.03

馬鹿はそんなもん
間違いにくいようにコードを書くことをしない

2019/02/17(日) 09:02:57.20

>>212
コードを書かなきゃ間違えないということか、なるほど。
それとも馬鹿は誤解を受けないような文章を書くことをしないってことか？

2019/02/17(日) 09:28:38.67

俺が分かるからいいみたいな考えだとチームで開発はできないよ

2019/02/17(日) 10:19:09.83

>>214
それはよく解る。保守性も悪くなるよね。

2019/02/17(日) 10:48:02.04

一般的なプログラミング言語なら正しいけど、VBAだとかなり厳しくない？
下に合わせるとそれこそ可読性も保守性もクソもないゴミにしかならないよ

2019/02/17(日) 10:53:43.33

言語は問わず下に合わせるとゴミになる
属人性の排除といって下に合わせたがる人が少なく無いけどあれは間違いなんだ

2019/02/17(日) 11:25:11.92

VBAで下に合わせると、やたらSelect & Selection.Copyが多い、
マクロの自動記録じゃねえのこれ?
みたいなのが出来上がる。

2019/02/17(日) 11:45:18.78

ActiveHogeHoge へ参照が多いとそうなんだろうなと思うことにしている

2019/02/17(日) 11:45:44.34

>>216
>>217
>>218
意味が伝わってないみたいだけど
cells(i, 1) = arr(i-1, 0) がセルに何が書き込まれるかはコードの前後を追わないと分からないよね
これを分かるようにするのが分かりやすいコード
プログラミングが上手か下手かは関係ない話

2019/02/17(日) 11:51:57.63

多次元配列も Dim lngEleName As Long とか専用ループ変数を準備してるならいいけど、ijkで回してるのを見た日にはそいつを殴りにいくね。

2019/02/17(日) 11:59:45.89

ひえー
なんか諸先輩方思うところ多かったようで
自分も書くとき気をつけないと
初心者ですを免罪符にしないように気をつけよう

2019/02/17(日) 12:32:03.24

>>221
i, j, k でいいよそんなのw

2019/02/17(日) 12:47:43.60

>>221
i, j, k で分かりにくくなるような長ったらしいプロシージャを書くのが悪い

2019/02/17(日) 13:16:45.17

>>223
上司「お前クビ」

2019/02/17(日) 13:31:38.58

>>224
プロシージャが簡潔ならおk

2019/02/17(日) 13:42:14.79

>>225
つまらない趣味にこだわるのは中学生までだぞ

2019/02/17(日) 13:49:15.60

偏見かもしれんがプログラミングで日常言語に近づけようとするやつは代数とか苦手だった？
って思っちゃう

2019/02/17(日) 14:06:36.59

蛇腹erは代数が苦手(キリっ

2019/02/17(日) 14:20:05.25

>>227
上司「このiってなに？ちゃんと説明して」

2019/02/17(日) 14:51:51.50

単なるループカウンタですけど？
見ればわかりますよね？

2019/02/17(日) 14:57:39.75

>>221
Ing Ele　ってなんの略ですか