Excel VBA 質問スレ Part63

2019/09/16(月) 19:34:59.04

!extend:checked:vvvvv:1000:512

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

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

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

2019/11/13(水) 08:52:45.90

VBAよりPythonを覚えた方がいいなぁ。

**デフォルトの名無しさん** (ｽﾌｯ Sdbf-DaD1) · 2019/11/13(水) 09:27:16.58

>>661
交通事故をなくすには車を隔離してパイプの中を走らせるのが一番
ただしあと300年かかる

2019/11/13(水) 09:50:15.66

>>664
低学歴がPythonやっても仕事無いぞ

2019/11/13(水) 11:30:26.61

いつかはExcelもPCも必要なくなる時代は来るだろうけど今は必要だからな。データ管理する以上はExcel、Accessは最後まで残りそうだけどな。
将来的に事務職がなくなれば、事務管理してる上司もいらないから、新しい仕事探したほうがいいね
Pythonだけ出来ても仕事ないよ

2019/11/13(水) 12:06:34.79

faxすら無くせないのに

2019/11/13(水) 13:00:27.19

PC無くなるのはまだ随分先だろ

2019/11/13(水) 13:55:43.47

紙の書類を茶封筒で送る郵便すら生き残ってる

2019/11/13(水) 15:18:04.61

学校で奨励されたためにVBAエキスパートを受験しようと思いましたが、仮にスタンダードまで合格すれば理解度はどの程度にまで到達するのでしょうか？

2019/11/13(水) 15:26:24.21

その時点で世の中の自称VBAプロの半数以上よりは上だと思う
世の中のVBA使いのレベルは想像を絶するほど低いから、
少しでも何が役に立つもの作れるようになったら「VBAを使いこなせます」と言っちゃっていいよ

2019/11/13(水) 16:25:53.60

エキスパート持ってるけどやっぱり試験用の知識って感じだよ
つまらん関数の引数とか
PC環境あれば簡単に確認できるものを暗記でやる感じ

2019/11/13(水) 19:26:09.82

VBAエキスパートなんかあるのか・・。
VBエキスパートではなく。

トランスフォーマー検定じゃなくて、
トランスフォーマーガム検定みたいな感じか?
違うか。

2019/11/13(水) 19:34:50.53

求められるのはVBAエスパー

2019/11/13(水) 19:58:58.25

A列で適当な色でフィルターをかけて、B列の可視セルをC列の値✕D列の値にする場合はどうすれば良いでしょうか。
for each in specialcells(xlCellTypeVisible)
b.value=c.value*d.value
next
にしていますが、データ2000くらいあるとと遅いです。
b.specialcells(xlCellTypeVisible).value=を用いれば早くなりそうですが、よく分かりません。
分かる方いましたら教えて下さい。

2019/11/13(水) 20:10:53.70

何だそりゃww
可視セル以外は計算しちゃいけないのか?
計算してもいいなら、全部配列に入れて計算しちゃえば?

2019/11/13(水) 20:15:05.26

>>677
早速の返信ありがとうございます。
可視セル以外は変更してはだめなんです。
後だしになるんですが、黒でフィルターしたらC✕D、白ならC-Dと処理が違うためです。

2019/11/13(水) 20:15:12.55

>>676
B列にはじめから計算式入れとけば良いんじゃ

2019/11/13(水) 20:23:26.06

>>678
フィルタいらなくない？
色で計算変えればいいだけじゃない？

2019/11/13(水) 21:12:54.98

質問失礼します。
vbaからc++のdllへ引数を渡してc++で処理し、配列をvba側に返したいです。
引数で渡すものは、配列ではありません。

文字列や数値をvbaで受け取ることは出来るのですが、配列はどのようにc++から受け取れば良いのでしょうか？

お願いします。

2019/11/13(水) 21:45:08.38

>>679
>>680
ボタンを押した時だけ変更するようにしたいので、式を入れるのは難しいかと思います。
またまた後だしになるんですが、他にも色々ボタンを配置して、このボタンを押すとB=Cとしたり、こっちのボタンを押すとB=1.1*Dという感じにしています。

2019/11/13(水) 21:50:01.18

>>682
だからボタン押した時色によって計算変えればいいじゃないかと

2019/11/13(水) 22:20:19.63

このスレって北海道のハゲのおっさん来てるの？

2019/11/14(木) 20:59:40.88

>>682
色以外にフィルタをかけられる要素は無いの?
あるなら、一旦解除して配列に入れて、該当行だけ計算して、またセルに戻して再度フィルタ。

>>681
普通に受け取れると思うけど。
ByRef的に受け取るの?

2019/11/15(金) 05:48:17.81

>>676
for eachループを
range(cells(2,2),cells(10000,2).end(xlup)).specialcells(略).formula="=C2*D2"

2019/11/15(金) 06:53:06.51

このスレって北海道のハゲのおっさん来てないの？

**デフォルトの名無しさん** (JP 0H96-XgEr) · 2019/11/15(金) 08:30:23.58

>>687
こんなとこでハゲ友おっさんずラブっすかw

2019/11/15(金) 09:09:18.54

>>671
昔、某掲示板で質問してた奴が、欲張らずに基礎からやった方が良いと言われてエキスパート持ってるんですけどねと言ってた人がいた。
そんな感じかな。

2019/11/15(金) 09:16:55.98

vbaスタンダードの教材の目次見たけど基礎というか普通に初心者向けという感じがした
逆にこういう内容飛ばしてどうやって使ってるんだろう

2019/11/15(金) 18:37:41.87

基礎からやるの、良いと思うけどな。
基礎を無視した俺は、ADOもWinAPIもUiAutomationも使えるが、
プロシージャの意味を20年くらい知らなかったぞ。

2019/11/15(金) 18:58:40.00

スーパーつるっぱげ

2019/11/16(土) 13:07:26.06

VBAスレ民はマジで頭弱めだな

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/16(土) 20:01:13.26

「置換したい文字列」と「置換文字」を変数として扱って、全体の文字を出力することはできませんか？
Replace関数では、Replace(文字列, 検索文字, 置換文字)とありますが、
文字列の入った変数を第一引数に与えるエラーが出てしまいます。

最終的な目的として、エクセルで定型的なHTMLコードを出力したいのです。
何かよい策がありましたら教えてください。

Sub 企業情報コピーテスト()
Dim i As Long
Dim s1 As String
Dim excelldata1 As String
Dim excelldata2 As String
....
s1 = HtmlSorce.Cells(2, 2).Value
'企業名
excelldata1 = Sheet1.Cells(4, 4).Value
'資本金
excelldata2 = Sheet1.Cells(5, 4).Value
Replace(s1,"tabledata1", excelldata1)

Debug.Print (s1)
End Sub

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/16(土) 20:02:05.70

■HtmlSorce.Cells(2, 2)に入っているデータ■
<table width="100%" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td>企業名</td>
<td>
tabledata1
</td>
</tr>
<tr>
<td>資本金</td>
<td>
tabledata2
</td>
</tr>
....
</tbody></table>

///////////////////////////////
こんな感じです。どうぞよろしくお願いいたします。

2019/11/16(土) 20:06:56.33

>>694
関数の結果を入れる変数が抜けてる
コートは精査してないけど、とりあえずこれでいいんじゃね？
s1 = Replace(s1, "tabledata1", excelldata1)

2019/11/16(土) 20:08:04.72

>>694
普通はエラー出ない

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/16(土) 20:10:44.84

すいません。できた　私はあほでした。
s1 = Replace(s1,"tabledata1", excelldata1)
で出力できました。

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/16(土) 20:11:37.38

みんな、早い。。ありがとう。。

2019/11/17(日) 03:29:18.67

レンダリングエンジンとしてExcelを使ってるの？
つらすぎるなそれは

2019/11/17(日) 04:16:20.60

レンダリングエンジンの意味間違ってるよ

2019/11/17(日) 06:32:04.83

使ってるかどうかは、これだけじゃ判断できない
可能性はあるけど断言はできないから

微動 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/17(日) 11:35:29.77

わたくしのことですか？？

コーディングは、いつもAtom使って手打ちしてるよ。
ただ、定期的にエクセルで入稿してくる案件があるので、
毎回エクセルからデータを手作業でコピペするのがしんどくて
コピペミスもあるし。
VBAでまるっとタグが出力できればいいなと。

他に良い方法がみあたらないし、これがベストかと。

思ってるとこでし。

2019/11/17(日) 11:38:28.01

Atomとか久しぶりに聞いたな
VSCodeに完全敗北して利用者がほとんど乗り換えた挙げ句に開発元がMSに買収されて完全に開発も終わった死んだエディタだよ

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/17(日) 11:47:05.51

そんなこといわなくても、、、
web系は、sublimetext か Atom が多いと思う。まれに秀丸さんもいるお。

2019/11/17(日) 11:51:44.83

>>705
そいつは触らなくていいやつだよ

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/17(日) 11:52:22.26

ここらへんにいらっしゃるかたは
R列が何番目か直ぐに頭にでてくるのかしらん。

セル選択したら、行列番号がすぐわかる表示設定あるといいですねえ。

2019/11/17(日) 11:52:40.84

いつの話だよ
Web系のAtomユーザーはほとんどVSCodeに乗り換えたよ

2019/11/17(日) 12:25:47.38

>>707
エクセル列の表示を数字とアルファベットで切り替える
https://www.tipsfound.com/excel/01204

2019/11/17(日) 12:31:12.53

>>707
言ってることがよくわからんけど↓みたいにVBEでコンソール出力するのは駄目なの？
?Selection.Item(1).Row & ", " & Selection.Item(1).Column

微糖 (ﾜｯﾁｮｲ 2eda-zGDE) · 2019/11/17(日) 12:46:43.50

いろいろ提案ありがとうございます。
普通に対応表を手元においときます。

2019/11/17(日) 13:14:49.52

>>707
A1とR1C1表示を切り替えられるショートカット作った

2019/11/17(日) 13:37:03.64

まれに禿もいるよ

2019/11/17(日) 14:08:51.89

>>707
1行目に連番を振っておく

2019/11/17(日) 15:12:07.26

>>707
機能はいらんかな。見たくなったらcolumn()入れてる

2019/11/17(日) 18:02:42.14

北海道のグラサンの禿はここにきてないの？

2019/11/17(日) 19:02:54.92

俺も=Column()入れてるわ。
ていうかね、何でどっちか片方だけなんだよ。
A(1)、B(2)とか両方表示するモード付けりゃいいのに。

2019/11/17(日) 19:28:55.74

>>717
おーそれいいね
ややこしかったらツールチップみたいに、ポイントした時に出てくるとかでも良い

2019/11/17(日) 19:33:09.97

現状自作するしかないわな

2019/11/17(日) 19:38:26.25

むしろ列番号が必要なことって少なくね？

2019/11/17(日) 19:43:53.48

indirectやVBAで古いデータを整備する時にたまに必要になる

**デフォルトの名無しさん** (JP 0H92-iGNt) · 2019/11/17(日) 22:37:01.66

1行目1列目にランダムに数字が入力されている表において、その数字を上から順番に足して2列目にその合計を表示させるにはどう書けばいいでしょうか？（下みたいな感じで）

1列目　2列目
--------------------
4　　　　　4
7 　　　　11
8 　　　　19
12　　　　31
15　　　　46
2　　　　48

2019/11/17(日) 22:40:14.20

上から順番に足して2列目にその合計を表示させればいいですよ

2019/11/17(日) 22:55:50.76

>>722
ワークシート関数じゃ駄目なの？

2019/11/17(日) 23:11:53.16

>>722
左のセル+上のセル

2019/11/17(日) 23:14:14.11

A2から対象行までを合計

2019/11/18(月) 00:38:18.28

for　i =　1to10
v=v＋cel（i,1）
cel （i,2）=v
next
みたいな感じ?

2019/11/18(月) 00:45:00.05

なんだcelて
ちゃんと書けボケナス

2019/11/18(月) 01:27:00.60

>>722
馬鹿は死ねよ

2019/11/18(月) 04:45:54.36

Ruby で作った

nums = <<"EOT".lines( chomp: true ).map( &:to_i ) # 数字の配列。改行は削除
4
7
8
12
15
2
EOT

totals = nums.each_with_object( [ 0 ] ) {
|num, ary| ary.push( ary.last + num ) }

totals.shift # 先頭要素の0 を削除する
p totals #=> [4, 11, 19, 31, 46, 48]

2019/11/18(月) 15:14:40.58

>>722
Sub sample1()
Dim i Range
Range("B1") = Range("A1")
For i = 2 To 6
Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1)
Next i
end sub

A列が不特定多数で出力の速さを求めるのなら

Sub sample2()
Dim i Range,j Range
j = WorksheetFunction.Count(Range("A:A"))
Application.ScreenUpdating = False
Range("B1") = Range("A1")
For i = 2 To j
Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1)
Next i
Application.ScreenUpdating = True
end sub

2019/11/18(月) 15:19:20.54

間違えた

Sub sample1()
Dim i As Long
Range("B1") = Range("A1")
For i = 2 To 6
Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1)
Next i
end sub

A列が不特定多数で出力の速さを求めるのなら

Sub sample2()
Dim i As Long,j As Long
j = WorksheetFunction.Count(Range("A:A"))
Application.ScreenUpdating = False
Range("B1") = Range("A1")
For i = 2 To j
Cells(i, 2) = Cells(i - 1, 2) + Cells(i, 1)
Next i
Application.ScreenUpdating = True
end sub

2019/11/18(月) 15:42:28.46

>>707
VBEのメニュー上にテキストボックス作って数値とアルファベット相互変換する奴作れば。

2019/11/18(月) 15:43:19.48

>>720
寧ろ列番号の方が必要。

2019/11/18(月) 15:53:04.73

>>722
Range("B1:B10").Value="=SUM($A$1:$A1)"
'関数残したくなければ下を追加
Range("B1:B10").Value=Range("B1:B10").Value

2019/11/18(月) 17:07:56.73

>>734
どんなときに必要なの？

2019/11/18(月) 18:10:29.63

マクロ実行ブックと同じフォルダ内にある"CCT"というブックに
１つのシートがあって、そのシートをマクロ実行ブックの"CCT1"に貼り付けたいのですが
"CCT"内のシート名が毎回変わってしまうので、変わってもコピペができるマクロをおしえてください

Workbooks.Open ThisWorkbook.Path & "\CCT", ReadOnly:=True
Sheets("*").Cells.Copy ThisWorkbook.Sheets("CCT1").[A1]
ActiveWindow.Close savechanges:=False

2019/11/18(月) 18:25:23.23

>>736
普通はCells(i, j)を使うから

2019/11/18(月) 18:33:30.81

>>737
Worksheets(1)じゃ駄目なん?

2019/11/18(月) 19:06:26.91

>>738
まさかと思うけど、F1~X1のセルの処理を
For C = 6 To 24 ' F列からX列
~.Cells(1, C).~
Next
みたいにコーディングしてるの？

2019/11/18(月) 19:14:56.88

vbaを勉強してるのですが、specialcellsとusedrangeの違いが分からないのですが、どんな時に使い分けるのですか？

2019/11/18(月) 19:45:04.18

どっちも普段使わない

2019/11/18(月) 19:45:09.69

>>740
そんなものは内容による。
Range("C1")のような表現よりも数学的、座標的表現であるCellsの方を使うことの方が多いと言ってる。

2019/11/18(月) 19:46:05.14

>>737
シート名かシートの順番を固定しないと無理

2019/11/18(月) 19:49:12.48

>>741
specialcellsは選択範囲から取得される
usedrangeは選択範囲関係なくシート全体から取得される

2019/11/18(月) 19:50:38.34

>>744
シート1つしか無いと思う。
文が曖昧だから必ずそうとは言えないが。

2019/11/18(月) 19:55:46.17

>>743
お前がそうだというだけの話なのね

2019/11/18(月) 19:56:31.57

>>747
そうだよ。

2019/11/18(月) 19:58:05.76

今までの経験上、組める奴は同意見が多いけどね。

2019/11/18(月) 20:05:00.70

>>740
列方向だけに伸ばす事は少ないけど、

for k = 1 to 3
for i = 1 to 最終行
cells(i,k)
next
next

みたいに二重ループにすることはたまによくあるよ

2019/11/18(月) 20:05:54.63

>>737
シートが1枚しか無いならブック開いてからアクティブシート取得すればいいのでは

**デフォルトの名無しさん** (ｽﾌｯ Sda2-LOTu) · 2019/11/18(月) 20:08:35.28

Set

2019/11/18(月) 20:22:40.48

>>748
ならなんの問題もないな

>>749
お前の周りの話だよね？

>>750
いや、その例で
for k = 1 to 3 ' A列~C列
って書いてるってことね

2019/11/18(月) 21:22:26.89

>>753
俺の周りって結構広いんで。

2019/11/18(月) 21:40:37.27

Rubyなら一行で書ける程度の事をVBAは面倒だね

2019/11/18(月) 22:02:21.62

>>754
はいはいw

2019/11/18(月) 22:39:37.88

俺はCells派
任意のセル範囲内での位置座標を相対指定できてめちゃくちゃ便利
Cells(i)もCells(i, j)もよくつかうしSelection.Cells～とかよくやる

2019/11/18(月) 23:25:47.41

>>728
携帯で打ってるのに無理ゆうなよ。

2019/11/19(火) 06:07:21.04

>>754
ウエストな

2019/11/19(火) 09:42:21.51

>>754
カエルかな？

2019/11/19(火) 12:42:00.23

>>741
SpeciallCellsのほうはユーザー定義関数で使うと不具合あったはず

2019/11/19(火) 22:43:20.17

>>740
RangeをVariantに代入して
For c = 1 To Ubound(Variant)
Variant(1,c)...
が一番楽
だけどRangeが1セルだけの場合上手く代入できない気がする

2019/11/20(水) 13:27:25.20

>>762
>>740
いや、だからさ、>>735みたいにしたりするし、その時によるんだよ。
行、列共に多少なりとも組める奴ならアルファベットでアクセスすることは少ないというだけ。

2019/11/21(木) 15:35:37.98

http://officetanaka.net/excel/vba/tips/tips38.htm

Sub Sample1()
Dim RE, strPattern As String, r As Range
Set RE = CreateObject("VBScript.RegExp")
strPattern = "SUM\("
With RE
.Pattern = strPattern ''検索パターンを設定
.IgnoreCase = True ''大文字と小文字を区別しない
.Global = True ''文字列全体を検索
For Each r In ActiveSheet.UsedRange
If .Test(r.Formula) Then r.Interior.ColorIndex = 3
Next r
End With
Set RE = Nothing
End Sub
このソースのDim REの部分ってこのサブルーチンだけを動かすようなマクロの場合いらなくね？