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

2019/02/09(土) 15:22:25.15

ただし、VBAが何かわからないような馬鹿はお断りです

2019/02/09(土) 15:40:14.54

他の言語スレでは相手にされずここならマウント取れるだろうとやって来る馬鹿もお断りです

**デフォルトの名無しさん** (ｱﾒ MMcd-pe6H) · 2019/02/09(土) 17:15:55.60

>>3
マウント取られちゃう怯えですか

2019/02/09(土) 21:48:35.35

前スレ終了直前でスルーされてしまった質問です。お願いします。

あるファイルに、
on error goto err
******
exit sub
err:
msgbox err.description
end sub

↑
こういうコードをたくさん書いてきました。
しかし、エラーが出たときに、どのプロシージャで発生したのか知りたくなり、
msgbox err.description & このプロシージャ名
に変更したくなりました。
「このプロシージャ名」を書く方法ってあるのでしょうか？

2019/02/09(土) 22:15:26.08

C#で作成したライブリファイルをビルドしてtest.dllファイルを作成し仮にデスクトップに置きました。
中身は
public string[] GetData(string path,string file)
{
//処理
}

これをVBAで実行したのですが、標準モジュールでどう宣言したらできますか？
そもそも出来るんですか?

Declare Function strData Lib "???" Alias "???" () As string()
これを使うんですよね？

2019/02/09(土) 22:30:32.98

そうやって作ったのって、やっぱ実行速度はC#並みになるのかな。
VBAレベルに落ちちゃうなら、VBAに翻訳しちゃうとか。

2019/02/09(土) 22:39:52.86

エクセルvba勉強始めてるんですけど
言語がなんかすきになれないです
オブジェクトを生成してそれを操作するってのばっかりにみえるんですが
それならいっそパイソンやら使いやすい言語でcomオブジェクトからエクセルを操作したほうがいいんでしょうか？

2019/02/10(日) 00:05:20.18

要望2だけ反映させてました
https://www.axfc.net/u/3958630
変更点
乱数はマイナスも作成できるようになりました
文字シャッフル機能を追加しました
ケンブリッジのあれも取り入れてみました

要望1はいいと言うことなのでこれで終わりたいと思います。
スレ汚し失礼しました。

2019/02/10(日) 03:10:28.77

>>5
無かったと思うな…
あるとしても ThisModuleな感じか…

2019/02/10(日) 03:26:25.40

>>8
別の言語でエクセルの操作はおすすめできない
やるならワークブック/ワークシートオブジェクトなどを操作した方がいい
オブジェクトを操作するだけならわざわざ高いOfficeも買わなくていいし

2019/02/10(日) 03:36:45.00

デバッグしてたらとまりませんね・・・
何個かバグつぶしたので上げなおします
https://www.axfc.net/u/3958695

2019/02/10(日) 08:29:51.15

なんかすみませんね。深夜睡眠をけずってまでやってらったようで、、。ツールありがとうございます。
あとはこちらでいただいたツールをベースに必要に応じてカスタマイズします。

2019/02/10(日) 09:22:45.87

JScriptでエクセルやってます
いろいろ出来るようになったのですが、VBAで選択した範囲の右下をとるときに、

y = Selection.Row + Selection.Rows.Count - 1
x = Selection.Column + Selection.Columns.Count - 1

としますが、JScripで、

var sheet = book.Worksheets( 1 );
var y = sheet.Selection.Row

とかしてもありませんと怒られます。どうしたらいいでしょうか
また、いろいろとググっているのですが、JScriptで使えるエクセル専用のオブジェクトやプロパティを
調べられるサイトってないのでしょうか。なかなか見つけられないのですがわかる方、教えてください
VBAならいろいろあるようですが

2019/02/10(日) 09:40:27.91

>>14
そこだけVBSにするとか。

2019/02/10(日) 09:54:47.81

>>14
JScriptは良くわからんが・・Javaは結構したけど
見当違いなら申し訳ないが
既にExcelが起動していて、シート１が選択され
範囲が選択されている状況で、JScriptを動かしているんで良いですよね

2019/02/10(日) 10:14:14.92

>>5
単にプロシージャ名の変数を宣言しておき
各プロシージャ実行時にプロシージャ名に名前をセットして実行
エラー表示でプロシージャ名の変数を表示するだけでは

2019/02/10(日) 10:29:08.47

>>14
var sheet = book.Worksheets(1);
sheet.Activate;
var selected = book.Application.Selection;
var x = selected.Row + selected.Rows.Count - 1;
var y = selected.Column + selected.Columns.Count - 1;

でいけるんじゃないかな
試してないから間違ってたらごめん

2019/02/10(日) 10:48:51.96

>>8
昔は、メモリーの領域を分け合って使ってたけど
いまわ全てオブジェクトと思え
エクセルは色々このオブジェクトの使い方が説明されていて
機能も多い
いやならすべて作ればとなるが、所詮何も出来ないだろ

2019/02/10(日) 10:52:53.82

>>17
これは間違いだな、サブルーチンから戻った時を考えてない
サブルーチンでは、元の名前を保存しておき元に戻す処理が必要になるが
こんなの今時やらないな

2019/02/10(日) 10:57:18.71

したがって、プロシージャ名は配列で宣言し、サブルーチンの時の処理が必要になるが
これは、システムが管理しているのを使うべきだな、すまない

2019/02/10(日) 11:29:32.47

>>18
ありがとうございます！

それで動きました。　どこでそういうのは調べるのでしょうか。　なかなかググってもわかりません

>>15
最初にJScriptを始めたとき、ネットでJScriptの方が初心者向けにエクセルの操作とかわかりやすい記述が
見つかったので、JScriptを始めたのですが、VBSだと、VBAとぼとんど同じプロパティで同じことができますか？
そうなら、VBSに移ろうかな

2019/02/10(日) 12:19:38.78

まあなんだな、質問して回答を実行してできたことが答えじゃなくて
何故できなくて、何で出来たのが答えなんだけどな

2019/02/10(日) 12:35:46.47

>>22
今回の質問はエクセルのオブジェクトモデルに忠実に従えば解決するものだよ
VBS含め他のどんな言語を選択しようが、そのあたりの事情は変わらない

具体的には、今回はSelectionへのアクセス方法がおかしかったわけで、
MSDNリファレンスのプロパティ一覧を見たり、VBEのオブジェクトブラウザでプロパティを検索したりすれば、
Worksheetオブジェクトには現在の選択範囲へのアクセスを提供するSelectionプロパティがないことや、
SelectionプロパティはApplicationオブジェクトのメンバとして実装されていることが分かる

2019/02/10(日) 12:45:32.26

>>22
無理に移るんじゃなくて、併用するとか。

2019/02/10(日) 12:48:09.50

前スレでもあったが、シートを選択してなければ、そのシートの選択範囲は取れない
ただそれだけだろ

2019/02/10(日) 12:56:37.91

>>26
元の質問のサンプルはsheet.Selectionという式の構文が間違っているので、仮にシートを選択していようが選択範囲は取れない
あと、シート上のSelectionの情報を取るだけなら画面遷移を伴うSelectではなくActivateで十分だろう

2019/02/10(日) 13:00:02.97

>>24
全く同じことをjsとvbsでやってみました。jsはうまく動作しますが、vbsは動きません
selectedにRowはないと言ってきます。レンジの選択はちゃんと出来ています

jsのコード
var book = GetObject("C:\\file.xls");
var sheet = book.Worksheets( 1 );
sheet.Select;
sheet.Range( "A1", "B10" ).Select
var selected = book.Application.Selection;
var x = selected.Column + selected.Columns.Count - 1;
var y = selected.Row + selected.Rows.Count - 1;
WScript.echo( "x=",x,", y=", y );
book = null;
WScript.Quit(2);

vbsのコード
Set book = GetObject("C:\\file.xls")
Set sheet = book.Worksheets( 1 )
sheet.Select
sheet.Range( "A1", "B10" ).Select
Set selected = book.Application.Selection
Set x = selected.Row ' ここでエラー
MsgBox "x：" & x
Set book = Nothing

2019/02/10(日) 13:03:50.84

>>27
すまないな
>シート上のSelectionの情報を取るだけなら画面遷移を伴うSelectではなくActivateで十分
実質的にどう違うかわからないので申し訳ありませんが教えていただけませんか

2019/02/10(日) 13:14:52.82

>>29
Selectによる画面遷移はユーザーとの対話を想定した処理で、当然描画処理の負荷がかかる
プログラム上で参照するアクティブなオブジェクトを切り替えるだけならSelectはしなくて良い

2019/02/10(日) 13:26:46.13

>>28
>>Set x = selected.Row ' ここでエラー

x = Selected.Row

2019/02/10(日) 13:31:40.65

>>31
出来た。　なんだかなあ、、、w

2019/02/10(日) 13:44:31.83

>>24
いろいろ試してみてわかりました
もともと、エクセルのマクロで
y = Selection.Row + Selection.Rows.Count - 1
x = Selection.Column + Selection.Columns.Count - 1
と書いていたものをjsでそのままやったら動かないので、
sheet.Selectionとしたり、book.Selectionとしたりいろいろと試したのですが、
Appliction.Selectionだったんですね

x = book.Application.Selection.Row + book.Application.Selection.Rows.Count - 1

とすれは、jsでもvbsでも両方で動きました
実際は、

Set selected = book.Application.Selection
と一旦とってからの方がやりやすいですね。ありがとうございました

2019/02/10(日) 15:20:48.09

>>30
ｊｓで、Activateでやってみましたが、ワークシートも切り替わってますよ
Selectとの違いがわかりません
vbsではやってません

2019/02/10(日) 15:55:33.83

>>34
スレチだ
いい加減にしろ、死ねよ

2019/02/10(日) 16:05:34.34

>>6
だれかこれ分かる人おらん？

2019/02/10(日) 16:25:54.76

>>36
直接は呼べなくてCOM経由でしか呼べない
VBA C# dll 呼び出し
とかでググれ

2019/02/10(日) 18:24:50.29

C#わからんから無責任発言するけどC++でdll作りゃ問題ないならそうすれば？

2019/02/10(日) 18:46:31.86

C++で橋渡しするならC++/CLIでできるね
でもそんな面倒なことをするより普通にexe作るかpowershell書くかして別プロセスとして呼べばいいよ
データの受け渡しはコマンドライン引数なり標準入出力なりを使えばよい

2019/02/10(日) 19:52:43.32

なんでより面倒な方法をドヤ顔で書いてるんだよ w
C#で書いてちゃんと設定すりゃインテリセンスも効くというのにコマンドラインとかありえねー

2019/02/10(日) 20:43:54.86

>>36
わかるけどスマホからサンプルコード書くのはしんどいわ
C# ComVisible Excelあたりでググって

2019/02/10(日) 21:28:15.49

>>39
自分でC++dll書けるなら呼び出す側はかなり簡便になるように作れるよ
なによりワークシートの大量データを配列で丸ごと渡せるからね。
コマンドラインじゃ無理でしょ

2019/02/11(月) 02:36:20.89

>>5
はるか昔に似たようなことやろうとしたが断念して↓で落ち着いた

MsgBox "Err." & err.Number & " " & err.Description, vbCritical, "モジュール名"

2019/02/11(月) 14:06:13.76

>>37
やっぱ直接は無理か。管理者権限とかCOM経由しか無理なら諦めます。

2019/02/11(月) 14:07:58.69

>>41
直接は無理そうなんで諦めます。

**デフォルトの名無しさん** (JP 0H16-KbRv) · 2019/02/11(月) 15:17:21.04

>>5
CodeModuleプロパティでなんかできそうだけど使ったことないからわかんね

2019/02/11(月) 17:58:03.71

エクセルのシートやセルのオブジェクトにどんなメソッドやプロパティがあるのか見れるところないですか

2019/02/11(月) 18:04:33.43

https://docs.microsoft.com/ja-jp/office/vba/access/concepts/settings/set-references-to-type-libraries
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/can-t-find-project-or-library

2019/02/11(月) 18:43:45.66

>>12
のダウンロードした回数多くないか？
有用なツールだと認められた証だろう。作った人は自慢していいよ

2019/02/11(月) 18:49:07.13

>>49
ん？　これ、何のファイル？

2019/02/11(月) 22:38:05.08

このスレの人ってやっぱりプログラマーが多いんですか？
それなりにVBA使えるようになった事務職なんですが、転職を考えています
想像してはいたんですが、VBAで職探しするとプログラマーばっかりですね

VBA活かせる仕事ってやっぱりプログラマーになっちゃうんですかね

2019/02/11(月) 22:48:43.99

>>51
プログラマの定義から自明だろう
VBAのスキルだけで仕事するってことはVBAでマクロ作ること自体を仕事にするってことだろ？
それは即ちプログラマに他ならない
嫌なら他のスキルを身につけた上でその補助道具としてVBAを使うことを考えなさい

2019/02/11(月) 22:54:21.26

>>51
プログラマはVBAほとんど書きません

2019/02/11(月) 23:04:40.76

あとはIT業界でプログラマ以外で入りやすいのはシステムオペレータやコールセンター
VBAを使う機会は少ないかもしれないけどVBAを習得できる程度の頭があるならそれなりに責任たある立場(バイトリーダーくらいを想像すればいい)にはなれるんじゃないかな

2019/02/11(月) 23:51:16.39

Excel エンジニアから、ステップアップしてプログラマーになった人は、たいてい、Ruby on Rails ！
まず、Ruby・Sinatra から、web フレームワークを始める

YouTube にも、そういう成功した人たちの動画がある

2019/02/11(月) 23:54:44.08

>>52
経理財務畑で10年働いてるので、その補佐としてVBA使ってる現状です
VBA楽しいので、そればっかりの仕事はしたくないんです
たぶん嫌になっちゃうので。
なのでIT業界に行きたいわけじゃないんです

でも、VBAで探すとITばっかりだなーって悩んでるんです

2019/02/12(火) 00:22:18.17

VBAは習得にかかる時間は他の言語覚えるのと同じくらい？
それとも簡単？

2019/02/12(火) 00:40:28.65

>>57
同じ

2019/02/12(火) 00:57:29.86

>>57
同じレベルを求めるなら同じ
でもVBAは自称「VBAできます(ｷﾘｯ」のレベルが他言語比で大幅に低いから、
人前で習得したと言っていいレベルに達するまでの時間は他言語よりずっと短い

2019/02/12(火) 01:28:22.73

for i
for j
for k
for l
if cells(i,j)=cells(k,l) then
m=m+1
cells(m,1)=cells(k,l)
end if
next
next
next
next

できました！

2019/02/12(火) 01:54:53.42

>>60
なんかシンメトリーできれい

◆QZaw55cn4c (ﾜｯﾁｮｲ e247-3ywI) · 2019/02/12(火) 04:41:36.02

>>57
VB6 と同じ程度なのでは？

2019/02/12(火) 07:32:55.78

>>60
エラー処理(例外処理)が緩すぎる
やり直し

2019/02/12(火) 08:01:42.96

>>56
仕事を効率化するシステムはある程度自分で作るのが当たり前の時代が来る（かもしれない）から
IT業界でなくてもプログラミングは必須になる（かも略
ただしそのツールの主流はVBAじゃないだろうね
いろんなツールや他言語も覚えて他人の仕事をどんどん奪ってください。
そうすれば時代の流れを加速することになるのでヒーローになれます。

2019/02/12(火) 11:26:12.35

MSがExcelにPython載せるっつってたから
君が卒業して社会に出る頃にはVBAは消えてるかも知れない

2019/02/12(火) 13:55:06.88

>>64
まず型はいらない。
コマンドや関数はフローチャートの図形みたいな視覚化とパラメータで作成。
論理エラー以外のエラーは出ない仕組み。
やろうとすればいくらでもできるんじゃね？

2019/02/12(火) 13:56:32.19

>>65
馬鹿は嘘情報を検証もなく信じる

2019/02/12(火) 14:29:27.10

>>66
そんな軟弱な
それじゃ小学生向けのプログラミング教室と変わらないじゃん

2019/02/12(火) 14:34:04.56

>>66
まんまRPAじゃね

2019/02/12(火) 14:40:47.72

https://www.publickey1.jp/blog/17/excelpython.html

2019/02/12(火) 15:57:24.73

>>68
一般の個人がやるならこのくらいが普通。
HTML手書きの敷居を下げたホームページビルダーだってそうだろ。
プログラムがCUIっていうのに違和感を持つべきだと思う。

2019/02/12(火) 16:00:06.68

>>69
そそ、それをより深くしてさらに汎用化させた感じ

2019/02/12(火) 18:57:41.03

>>66
やろうとすればというかもうとっくに先人たちが取り組んで諦めた分野だよ
学生の頃に配線型のプログラミング言語を使ったことあるけど難しすぎて習得を諦めた

2019/02/12(火) 19:46:07.38

先人たちの時代には難しかっただろう
しかし今のＰＣ環境ならグラフィカルなプログラミングも実用化できるんじゃね

2019/02/12(火) 19:49:06.70

>>13さんもう見てないかな
自分で使ってみたけどなんか違う・・・と思って考えてみたら
問題のシャッフル出題（各問1回だけシャッフルして出題)が足りないという結論に
バグもつぶしたし、まだ見てるならレスください

2019/02/12(火) 21:06:37.12

すみません、こういうのは出来ますか。

How are you? I’m looking
forward to see you.
を
How are you?
I’m looking forward to see you.
になおす。

要は、中途半端な改行がある文を、一行にまとめる。

2019/02/12(火) 21:11:53.35

>>74
みんなそんなに全力でテキストベースのプログラミングを避けたいのかねえ？
使いこなせば強力な武器になるとは思わんのか？

2019/02/12(火) 21:30:27.20

>>76
改行をなくすだけなら比較的簡単にできる
適切な位置で改行しろってなら、適切な位置を事前に完全に定義すればまぁできる

>>77
おれは別に避けたいとは思ってないしその必要もないけど
テキスト以外のプログラミングには従来のプログラミング言語にない可能性だってあるしな

2019/02/12(火) 21:39:40.48

DOSはDOSで使いやすかったと思う。
Windows出たときいらねーべって思ってたけど今思うと３．１はやっぱりいらない。

2019/02/12(火) 21:45:44.99

>>78
76です。
すみません。それでは、
.で改行できるようにお願い致します。

2019/02/12(火) 21:52:09.03

>>80
一旦改行を全て削除して、そのあとでピリオド、クエスチョンマーク、エクスクラメーションマークで改行すればいいんでは。

2019/02/12(火) 21:55:12.47

>>81
改行を削除できますか。

仕事で、大量の英文を整理したいので困ってます。

2019/02/12(火) 22:00:43.06

線つなぐやつはサブルーチンが正体不明のアイコンになるからものすごくわかりにくい
逆にわかりやすいプログラムを描くには高度なアイコンデザインセンスが必要ということだ
そんなの天才にしか使いこなせない

2019/02/12(火) 22:17:01.28

>>82
もうVBA関係なくなっちゃうけど、普通のエディタ使って置換機能を使えばいいだけでは。

2019/02/12(火) 22:41:31.90

>>84
セル内の文字列を対象にしてると思うからエディタでは無理では？分からないから適当に言うんだけど。

2019/02/12(火) 23:08:07.22

>>80
質問はうけつけん

Sub RemoveCRLF()

Dim target As Range
Dim str As String

Set target = Sheet1.Range("A1")

str = target.Value
str = Replace(str, vbCr, "")
str = Replace(str, vbLf, "")
str = Replace(str, ".", "." & vbNewLine)
target.Value = str
End Sub

2019/02/12(火) 23:38:26.31

>>76
あまりいけてないけど、ぼくも考えた

Dim str As String
str = Range("A1")

Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.Global = True
re.Pattern = "[\r\n]"
str = re.Replace(str, "")
re.Pattern = " +"
str = re.Replace(str, " ")
re.Pattern = "([?.]) *"
str = re.Replace(str, "$1" & vbLf)
Range("A2") = str

2019/02/12(火) 23:44:44.19

>>75
最新版は5ですよね？使ってみましたがオブジェクトエラーが起きてどこで停止しているかみてみると、ソート処理時に停止する。

そこで4_2をベースにこちらでカスタマイズして、ボタン１つでセル内の文字列をシャッフルするコードをネットから拾ってきました。
ついでに縦横の切り替えもボタンで実現してます。

やりていことこ実現できているので満足です

2019/02/12(火) 23:58:53.49

そうでしたか、なんかすみません
じゃ本当に終わります。

2019/02/13(水) 02:27:50.55

Python などの形態素解析で、文末でも判定すれば？

2019/02/13(水) 06:35:13.37

>>84
例えば？メモ帳とか？

改行を無くす置換はありますか？

2019/02/13(水) 07:12:30.92

>>82
改行置換ならVBAも要らん
https://excelkamiwaza.com/excel_kaigyou_tikan.html

2019/02/13(水) 07:30:01.13

>>92
ありがとうございます。一つのセルに最大どんだけテキスト貼れるかですね

2019/02/13(水) 07:36:07.18

>>92
cntl+jか。知らなかった。ほかのワードとかでも使えるかな

2019/02/13(水) 07:44:47.38

セルを指定する時とか”A1”とかちまちま書くのが普通？
めんどくさいんだけどそんなもの？

**デフォルトの名無しさん** (JP 0H16-KbRv) · 2019/02/13(水) 08:07:53.15

>>95
ヘッダの話なら1個ずつ書いてくしかない

2019/02/13(水) 08:46:40.27

>>95
状況とやりたいことによる
範囲指定する書き方も出来るし、変数で楽できる場合もある

2019/02/13(水) 08:48:18.23

>>93
Excelと関係ない英文を整形したいだけならテキストエディタを使った方が早いぞ
せめてWordにしとけ

2019/02/13(水) 09:17:10.81

「何の条件」で「何を」「どのようにしたいか」の中で「何の条件で」が出てないな
「何を」「どのようにしたいか」も一部の条件しか出てない気がする
連想ゲームじゃないんだから質問はちゃんとかけよ

2019/02/13(水) 10:05:00.38

>>76
この質問は
Excelの枠に配置で、折り返して全体を表示するに
以下の改行のない文を貼り付けた時に
How are you? I’m looking forward to see you.
セルの幅に合う位置で改行されるのを思いの位置で改行したい
ってことだろ、思いの位置が明文化されないとな
例えば英文であるかわからんが「...」みたいな文とか「!!」みたいなとかもありそうだしな

**デフォルトの名無しさん** (JP 0H16-KbRv) · 2019/02/13(水) 10:59:06.69

>>95
あと以下のようにしておくと面倒でなくなるよ

cns_COL_ID = “A”
Range(cns_COL_ID & 1) = “ID”

2019/02/13(水) 11:08:47.69

>>95
貼り付けられたイベントで処理するのも普通だけどな
位置は分かるから、そのセル・レンジを処理する

2019/02/13(水) 11:41:27.51

Private Sub Worksheet_Change(ByVal Target As Range)
まあ、Changeイベントで
　If Application.CutCopyMode = xlCopy Then
　End if
コピーされた場合「Range」に対して処理を書くんだな

2019/02/13(水) 14:06:51.14

セル上でドラッグドロップしたら、それでプログラムが動くようなことってできますか
たとえば、縦１列に20個のデータが入っていて、その１つを別の場所に
ドラッグドロップすると順番が入れ替わるようにするとか

**デフォルトの名無しさん** (JP 0H16-KbRv) · 2019/02/13(水) 14:22:50.50

>>104
こうかな

Sub Worksheet_change(ByVal Target As Range)
if target.column = 貼り付けた列番号 then 配列に突っ込む
配列をソートする
配列をセルに書き込む
End Sub

2019/02/13(水) 14:36:01.74

>>105
出来るんですね。　ありがとう

**デフォルトの名無しさん** (JP 0H16-KbRv) · 2019/02/13(水) 14:45:16.60

>>106
あとApplication.Enableevents = Falseしないと配列をセルに書く時にWorksheet_changeが起きて無限ループするから気を付けて

2019/02/13(水) 14:45:50.22

>>104
それって、切取りと切り取ったセルの挿入のことじゃない

2019/02/13(水) 18:05:52.67

>>104
シフト押しながらドラッグするだけやろ。

テーブル定義ならシフトすら必要ない。

既存の機能を自力で作ってどうするんや

2019/02/13(水) 19:29:04.53

>>94
置換前にcntl+jと入れると、置換ボタンが押せない。

2019/02/13(水) 19:30:45.49

検索で正規表現を使えないというのもあれだな。

**デフォルトの名無しさん** (ｱﾒ MMcd-oukl) · 2019/02/13(水) 20:11:24.50

ワードラップの問題だろ改行関係ない

2019/02/13(水) 20:17:10.65

>>96>>97>>101>>102
ありがとう
>>101
これはなぜ楽になるの？

2019/02/13(水) 20:39:49.89

>>113
楽というかマナー
意味の分かる定数で定義することで他人がプログラムを追わなくても理解できるようになる

2019/02/13(水) 20:49:54.38

プロパティ使ったほうが定数よりずっとわかりやすいよ

2019/02/13(水) 20:50:53.76

決まりきったセル（範囲）参照する時は名前定義なりテーブル化した方がいいと思うけどな

2019/02/13(水) 20:54:23.96

vba初心者です。
マウスイベントやスリープなどのapi を使って
会社で使うツールを半自動化してますが、
こういうアナログな方法ではなく、
マウスでクリックしなくてもツールがアクティブになったり、
スリープではなく画面が遷移したのを読み取って次の命令を実行してくれるような
ものを作るにはどういう学問を学べばいいですか？

2019/02/13(水) 20:57:56.29

>>114
あり

2019/02/13(水) 21:14:49.27

ウインドウズのイベントをフックする

2019/02/13(水) 21:25:30.47

>>117
UI Automation
ただ色々アレで結局Win32API併用することになることが多いけど

2019/02/13(水) 23:29:11.25

自作したdllファイルに文字列を投げて配列を受け取りたい場合

Public Declare Function 〇〇 Lib "△△" Alias "□□" (string path)As string()

〇自分で付ける関数名？？
△ dllファイルの場所フルパス？？
□ dllファイル内の何か？
それぞれ何を指すんですか？

ちなみにこれでも似たような事ができるんですか？
Dim tarApp As Variant
Set tarApp = CreateObject(“◎◎“)
　tarApp.Documents.Open FileName:="〇〇"
Set wdApp = Nothing

2019/02/14(木) 10:46:56.68

>>121
まあ、気楽に回答しておく
>〇自分で付ける関数名？？
その通り
>△ dllファイルの場所フルパス？？
Pathが通ってればフルパスでなくてもよい
>□ dllファイル内の何か？
別名宣言できる・・・まあ、調べろ

>ちなみにこれでも似たような事ができるんですか？
>Dim tarApp As Variant
>Set tarApp = CreateObject(“◎◎“)
>　tarApp.Documents.Open FileName:="〇〇"
>Set wdApp = Nothing
書いている意味が理解できてないだろう、Office系のソフトはちゃんとしたルールで作られてるが
こんなこと気にする前に、有効なDllを作ってみろよ
尚、理解できてないことが丸わかり

2019/02/14(木) 12:07:22.70

(´；ω；`)イベントが起こらなくなりました

2019/02/14(木) 12:08:59.63

>>123
エクセル再起動しろ

2019/02/14(木) 12:20:00.82

>>123
まあ、間違ってるんだろそれだけ
ソースを出さなきゃ何もないよ
イベント鳥杉ってよくあるからな
有効な手段は、護摩をたけ、できるだけ激しく火事には気を付けろ

2019/02/14(木) 13:20:00.69

たとえば、A1からC50までデータがあってA列をキーにソートしたいのですが、
途中たとえば、10行、15行、20－25行は抜かしたいのです。　これらにはコメントや他のものが入ってるので
でもそれらを抜かして全体でソートしたいのですが、Unionで繋いでやったら複数のレンジは出来ないみたいな
エラーを返されました
何かいい方法はないでしょうか

2019/02/14(木) 13:50:43.73

例えば、画面表示は止めて、メモリ上で行を移動させてソートする行をまとめてからソートして、
また行をもとに移動させてから、画面上に結果を表示とか、出来ると可能性があると思うのですが

2019/02/14(木) 14:23:28.89

>>126
if i = 対象行 then
行入替え
end if
とかでいいんじゃね？

2019/02/14(木) 16:52:27.07

>>126
行を非表示にしたら対象から外してくれんかな…（試してない）

2019/02/14(木) 17:20:39.55

>>121

〇自分で任意に付ける関数名
□ dllがエクスポートしている関数名

2019/02/14(木) 17:59:11.87

dllってよくわかんないだけどvbsのexecuteglobalみたいな感じ？

2019/02/14(木) 19:55:09.02

>>129
マジかあ。　　やってみた。　出来てる

なんだよ、プログラム作っっちゃった。　ソートしないところを一旦別に移して圧縮してソートしてから
下に戻すってやつ
なんだよ、　この2時間返して　w

**デフォルトの名無しさん** (ｱﾒ 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はしょうがないけど