Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

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

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

※デフォルト設定

**デフォルトの名無しさん** · 2020/06/01(月) 20:00:55.95

パリィは草

**デフォルトの名無しさん** · 2020/06/01(月) 20:10:21.26

>>439
ひとつ上のセルが同じファイル名なら
なにもせず次へ

**デフォルトの名無しさん** · 2020/06/01(月) 20:42:10.79

重複禁止の処理は連想配列（VBAだとDictionaryオブジェクト）を使うと便利だよ。

既に連想配列に存在するなら何もしない、存在しないなら処理して連想配列に登録する。
Valueに結果を入れておいて、実行結果をシートに出力とかするとカッコイイよ。

**デフォルトの名無しさん** · 2020/06/01(月) 21:05:54.37

結果をシートに出すなら配列使わんと重複削除してから開いた方が速くて楽じゃん

**デフォルトの名無しさん** · 2020/06/01(月) 23:34:24.04

まだ22歳の学生社長が得た､23億円の｢使い道｣
あの橋本環奈をCMに使うバイトアプリの雄
https://toyokeizai.net/articles/-/319511
中学時代の車いす生活から、17歳で起業するまで
https://www.advertimes.com/20200130/article306925/
ミャンマー発 AIダイニングアプリ「Yathar」をしかける日本人起業家
https://roboteer-tokyo.com/archives/14840
自分の視野は「世の中の0.001%」と自覚せよ。ビジネスチャンスを掴む4つの習慣
https://headlines.yahoo.co.jp/hl?a=20200511-00010001-srnijugo-life
アプリの視聴率がわかる　高専卒起業家の独創力
https://www.nikkei.com/article/DGXMZO46695580Y9A620C1000000/
１万人の若者を支援！インターンが日本を変えるかも！？　glowshipの若き創業者・足立卓也氏インタビュー
https://sogyotecho.jp/glowship-adachi-interview/
大学生起業家が設立１年で20億円調達！単発バイトアプリに外食企業など出資【タイミー】
https://foodfun.jp/archives/3490

**デフォルトの名無しさん** · 2020/06/02(火) 00:29:20.96

俺ならこうかな。

Sub サンペイグッドカメラ()
　どっきりカメラのキシフォート
　カメラのドイ
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 00:35:26.89

VBAだしそういう名前面白いかもなw
簡単だけど保守したくないやつは、もう先輩や同僚の連絡先を名前にしようかな

**デフォルトの名無しさん** · 2020/06/02(火) 01:36:20.19

Sub 馬鹿専用()
馬鹿には無理()
馬鹿は帰れ()
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 02:01:31.67

Sub 鱸()
鰯()
鰹()
鮪()
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 02:07:31.79

>>439
Ruby なら重複要素を許さない、集合を使って、

require 'set'

filenames = <<"EOT"
a/foo.txt
a/bar.txt
a/foo.txt
EOT

set = Set.new

filenames.each_line do |filename| # 1行ずつ処理する
filename.chomp! # 末尾の改行を削除する

# 同じ要素は追加できないので、追加できた時だけ、そのファイルを読み込む
p File.read( filename ) if set.add?( filename )
end

**デフォルトの名無しさん** · 2020/06/02(火) 02:24:02.46

>>439
[データ]→[重複の削除]　って機能あるけど

**デフォルトの名無しさん** · 2020/06/02(火) 04:12:46.96

>>439
ファイル名がリストアップされてる列があるなら
そこでまず回して重複排除したファイル名の配列 as Stringをつくればいいだけじゃ
てかその程度も思い浮かばないとなるとプログラミング向いてないような気がするわ

重複排除のプログラムって基礎の基礎でやるよ

便利な機能を使う前に順次・分岐・繰り返しでほぼほぼなんでも出来ちゃうことを学んだ方がいいわ
C言語の勉強するとそういうの鍛えられる感じする

**デフォルトの名無しさん** · 2020/06/02(火) 08:37:46.24

>>364
Readme読む限り、ちょっとこれはと思う。
一定間隔はあまり良くないな。
出来ればWM_DRAWCLIPBOARD捕まえるのが常套手段。

**デフォルトの名無しさん** · 2020/06/02(火) 08:39:17.76

>>386
まあ、プログラマ―としては糞コードの見本を強要されるわけだからねえ。

**デフォルトの名無しさん** · 2020/06/02(火) 08:41:06.23

>>398
引数という言葉を調べてみよう。

**デフォルトの名無しさん** · 2020/06/02(火) 09:53:39.10

い・・引数

**デフォルトの名無しさん** · 2020/06/02(火) 10:17:05.52

いんすう、なの？
勝手に、ひきすう、って読んでた。

**デフォルトの名無しさん** · 2020/06/02(火) 10:38:01.33

いんすうだと因数と間違えるから、わざとひきすうと読む慣習

**デフォルトの名無しさん** · 2020/06/02(火) 11:01:38.32

ソヒキスウブンカイとかあったよねー。

**デフォルトの名無しさん** · 2020/06/02(火) 11:28:56.48

淫吸だとエロい言葉に聞こえるからひきすうと読む

**デフォルトの名無しさん** · 2020/06/02(火) 12:59:58.61

Sub セル2行を結合して出力()
Sheets("雛型").Select
ActiveSheet.Copy

Dim gg As Long, rr As Long
For gg = Cells(Rows.Count, "E").End(xlUp).Row To 11 Step -1
Rows(gg + 1).Insert
For rr = 5 To 31
Cells(gg, rr).Resize(2).Merge
Next rr
Next gg
HorizontalAlignment = xlCenter
VerticalAlignment = xlCenter
Range("A1") = "2行を結合して出力"
End Sub

すみません、ネットで調べまくってる相変わらずのど初心者です。
セルの行挿入と結合を範囲指定して
2行を結合するのは何とか調べてできたのですが、
「セルの列挿入と結合を繰り返して
2列1行のセルにしたい」
というのができず。。ご教示頂けませんか。

理想は
「セルを2列挿入と結合をして3列1行のセルにする」や
「2列と2行の挿入と結合繰り返して2列2行のセルにする」
など、色々パターンを作りたいのですが。
ネットと入門編の本だとやはり限界を感じます。。
どなかた何卒お願いします。

**デフォルトの名無しさん** · 2020/06/02(火) 13:09:54.31

.resize(1,2).mergeとか
Range(rows(gg+1)rows(gg+2)).insertとか

**デフォルトの名無しさん** · 2020/06/02(火) 14:39:08.29

セルの結合をマクロでやる設計者ってセンスないね

**デフォルトの名無しさん** · 2020/06/02(火) 14:42:20.78

マクロとVBAな

**デフォルトの名無しさん** · 2020/06/02(火) 16:30:35.51

セル結合はなあ

**デフォルトの名無しさん** · 2020/06/02(火) 17:14:02.72

vlookupとセル結合をディスってはじめてexcel使い方として一人前

**デフォルトの名無しさん** · 2020/06/02(火) 17:30:35.84

セル結合は帳票イメージでの最終手段。

**デフォルトの名無しさん** · 2020/06/02(火) 17:36:37.19

セルの結合をする理由は
取引先の提出フォームが客先ごとに
1セルの結合の構成が本当に様々で8種類くらいパターンがあり
元のマクロで出した値の貼り付けが出来ないのが現状です。

なので元のマクロの1行1列のセルの値を
セルの構成を客先のに合わせたシートに出力
そのシートから客先提出フォームに値の貼りつけ
というのをやろうとしています。

**デフォルトの名無しさん** · 2020/06/02(火) 17:42:54.46

>>461
すみません、どこにどう弄ったらいいか
教えて頂きたいです。
すみません、、

**デフォルトの名無しさん** · 2020/06/02(火) 17:45:43.97

>>468
自分で考えろ

**デフォルトの名無しさん** · 2020/06/02(火) 18:33:10.70

じゃあ8種類のテンプレでよくね

**デフォルトの名無しさん** · 2020/06/02(火) 18:40:35.01

結合したりvlookupとかしたいから、わざわざエクセル使ってるんじゃないの？

**デフォルトの名無しさん** · 2020/06/02(火) 18:55:17.51

セル結合された部分は別の結合とかできないから
その都度結合解除するとか
行の挿入や削除で表が壊れたり
見えなくなるプロパティがあったり
嫌な思い出しかない

**デフォルトの名無しさん** · 2020/06/02(火) 19:17:40.08

Application.OnKey ってプロシージャに引数渡せないのが残念だなぁ
これってキーごとにプロシージャ作らないといけないかね

**デフォルトの名無しさん** · 2020/06/02(火) 19:20:48.48

>>462
そんなこたぁねえだろ。
確かに問題多いけど、分かった上で使うことあるぜ。
ゴミのSendkeys使うよりはあるね。

**デフォルトの名無しさん** · 2020/06/02(火) 19:31:05.26

Sub 列挿入()
ActiveSheet.Copy

Dim i As Long
For i = 32 To 8 Step -1
Columns(i).Insert
Next

End Sub
ここまでは何とか、、ってとこです。
後は指定したの行を全部何とか
2列1行のセルに
道のりが遠すぎる…

**デフォルトの名無しさん** · 2020/06/02(火) 19:38:40.44

データモデルに入れたデータからSQLを使ってシートに出力する方法を教えてください。

ネットになかなか情報がなくて
ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook.Connections("クエリ - パワークエリ名"), Destination:=Range("$A$1")).TableObject
から
.WorkbookConnection.OLEDBConnection.CommandText = "テーブル名"　にするとテーブルを出力

.CommandText = Array("EVALUATE CALCULATETABLE('テーブル名' , 'テーブル名'[項目名] =""検索語"" ) ")
.CommandType = xlCmdDAX
のようにするとDAX式で加工したテーブルを出力できるようになりましたが、SQLを使用する方法がわかりません。

**デフォルトの名無しさん** · 2020/06/03(水) 03:13:14.17

>>475
Sub 列挿入()
ActiveSheet.Copy

Dim i As Long, c As Long, r As Long 'カウント用
Const n As Long = 2 '列挿入, 列マージ数
Const sC As Long = 8, eC As Long = 32 '開始列, 終了列
Const sR As Long = 2, eR As Long = 10 '開始行, 終了行

With Excel.Application
.DisplayAlerts = False
.ScreenUpdating = False
End With

For c = eC To sC Step -1
For i = 1 To n - 1
Columns(c).Insert
Next i
Next c

For c = eC * n To sC Step -n
For r = sR To eR
Cells(r, c).Resize(1, n).Merge
Next r
Next

With Excel.Application
.DisplayAlerts = True
End With

End Sub

**デフォルトの名無しさん** · 2020/06/03(水) 03:29:44.75

あっ行別の列マージならRange.Merge Across:=Trueってのがあるのか初めて知ったわ

**デフォルトの名無しさん** · 2020/06/03(水) 17:16:57.27

すいません。関数を使って集計する方法を教えていただけないでしょうか。
index matchの組み合わせもしくは、sumifもしくはindex match sumifの複合で表示させたいです。

画像の出荷と書かれたセルに関数を入れて集計したいです。
集計は参照シートの黄色で書かれた「販売+その他出荷」の合計を表示したいです。
sumifでは縦の計算になってしまい、横の足し算が出来ない印象です。
上の数字はmatchを使った際の引用条件になると思い入れました。

説明わかりづらくてすいません。関数を教えていただけないでしょうか。
具体例のエクセルは簡単に書いてますが、実際に書くエクセルはデータが膨大なものです。
なぜかindexもうまく引用できていませんでした。

https://d.kuku.lu/ca513f39a8

**デフォルトの名無しさん** · 2020/06/03(水) 17:19:07.42

>>479
死ねよ、ここは何のスレかわかっているか？

**デフォルトの名無しさん** · 2020/06/03(水) 17:31:05.68

すれ違いでしたか。。別のスレで質問してみます
失礼します

**デフォルトの名無しさん** · 2020/06/03(水) 18:58:22.75

>>481
説明が下手な質問には答えられない

**デフォルトの名無しさん** · 2020/06/03(水) 19:02:55.47

>>479
Offsetっていうセルのサイズを変える関数があるが
この集計を関数でやるのは根本的にムリだね
1,10行目の数字とかに何の関連性もないから列が特定できない
元データ正規化すんのが先だよ

**デフォルトの名無しさん** · 2020/06/03(水) 21:04:01.49

前にも少し聞いたけど上級者はVBAどうやって作ってくもん？
そこそこボリュームのあるマクロを素人ながら作ってるんだけど
・標準モジュールにオブジェクト名付けて
そこに同じ名前のプロシージャを1つ作る

ユーザーフォームのボタンに
プロージャ名を2つや3つ並べたり　
とにかくボタンに割り当ててく
コードの表示見ると凄いシンプルに見えるけど
標準モジュールが30個とかあるんだが…
自己流だと全然だめねこれ

**デフォルトの名無しさん** · 2020/06/03(水) 21:12:23.58

そういうのは言語関係ない
上級者のコード読むなりプログラミング技法の初歩とかを勉強せえ

**デフォルトの名無しさん** · 2020/06/03(水) 21:16:06.03

上級者じゃないんでわからんが
数こなしていくうちに上達するんじゃね

**デフォルトの名無しさん** · 2020/06/03(水) 22:45:33.09

ネットで勉強してる初心者以前のレベルだけど
変数をiで宣言してるサイトが結構多いけど
テンプレ的な変数名なの？何かの略字？

**蟻人間** ◆T6xkBnTXz7B0 · 2020/06/03(水) 22:54:44.44

integer

**デフォルトの名無しさん** · 2020/06/03(水) 22:55:14.42

>>487
もともとはIntegerの頭文字から
とりあえず整数型変数にはI、もっと必要な時はJ、K以下略を使うというルールを70年ぐらい前にIBMの技術者が決めて、それが今まで慣習として残っている

**デフォルトの名無しさん** · 2020/06/03(水) 22:58:16.07

テーブル(ListObject)の指定列に計算結果値をLoopで書き込む処理を作ったんだけど、
ひどく遅延します。事象の原因と対策わかる方いたら教えてください。

・（同一シートの）テーブルの枠外だと同じ行数でも瞬時に終わります。
・計算結果じゃなくて 1 を埋め込むのでも遅い。
・再計算Off
・ためしにEnableEvents = false もやってみたけど効果なし。

３０００行くらいなんですが、しばらく帰ってこない感じ。
結局式埋込に変えたんだけど、その場合だと５～６秒くらい。

テーブルなんてそんなもん、ということであればそう認識します。
詳しい方教えてください。

**デフォルトの名無しさん** · 2020/06/03(水) 22:59:26.99

>>484
モジュールが増えるのは、
他に流用するからとか、
スクロールが面倒だからとか、
そんな理由だと思うけど。

宣言は一番上派、使用する直前派。
参照設定派、CreateObject(xxx)派、
If a = True Then派、If a Then派、
色々だから気にすんなと。

**デフォルトの名無しさん** · 2020/06/03(水) 23:02:38.52

>>489
iteratorが語源かと思った。

**デフォルトの名無しさん** · 2020/06/03(水) 23:03:56.76

DEFINT A-Z

**デフォルトの名無しさん** · 2020/06/03(水) 23:35:44.50

ループ変数にはiもよく使うけど、rとかcも割と使う。
列と行を入れ子にしてループ処理する時は、こちらの方が分かりやすい。

**デフォルトの名無しさん** · 2020/06/03(水) 23:40:14.49

>>487
古くは Fortran かな
I, J で始まる変数は無条件で整数型だった
Iがアルファベットの10番目だからという
よくわからない説もある

**デフォルトの名無しさん** · 2020/06/04(木) 00:05:55.74

実際の慣例ではどうなのか知らないが、i～tまでを使うって教えられた
intのtまでってことで
まあ大抵使ってもi,j,kぐらいだと思うが

**デフォルトの名無しさん** · 2020/06/04(木) 00:09:42.42

視認性が悪いから、j とか l とか使いたくない。
なので、 i, k, n, とか適当に飛ばして使ってる。

**デフォルトの名無しさん** · 2020/06/04(木) 00:09:53.27

自分は最大nまで使うよ。
i、j、k、l、m、n

**デフォルトの名無しさん** · 2020/06/04(木) 00:14:11.64

>>494
r は Range Loop用と決めてるから、r, c, はあまり使わない。
そんときは iR, iC ってやるな。
c は1文字入れるとき使うかも。
人それぞれやね。

**デフォルトの名無しさん** · 2020/06/04(木) 01:00:45.24

すみません、教えてください。 
caseの条件を変数で設定していると条件に一致しなくてelseに流れてしまいます。 
ベタ打ちで条件を記載した場合は、正しく処理へ流れるのですが･･･ 

sub テスト() 
Dim a As String 
Dim temp As String
a = "みかん"
temp = "りんご"", ""みかん" 'ここはチェックボックスの選択によって可変にする予定

Select Case a
Case temp
Msgbox("冬")
Case Else
Msgbox("冬以外")

End Select

End sub

**500** · 2020/06/04(木) 01:02:03.80

は誤って記載したので無視してください。
すみません。

**デフォルトの名無しさん** · 2020/06/04(木) 01:05:29.38

ダブルクォーテーション大好きなんだな

**デフォルトの名無しさん** · 2020/06/04(木) 01:09:25.97

>>490
同じ行やってみたけど一秒かかんない
テーブルに数式列あると遅延したけどcalculation=falseで気にならなくなったし

**デフォルトの名無しさん** · 2020/06/04(木) 01:47:41.43

馬鹿の特徴

教えて、助けて等で始まる書き込みをする

**デフォルトの名無しさん** · 2020/06/04(木) 02:18:53.76

>>500
Caseの条件が変数かどうかは関係ないから、どこか別のところが間違ってる
よく見直せ

**デフォルトの名無しさん** · 2020/06/04(木) 03:10:03.32

>>496
俺だけかな i1,i2,i3 とか、 iX,,iY, iCnt, iLoop, iStep みたいに使う

**デフォルトの名無しさん** · 2020/06/04(木) 03:52:02.37

命名規則とかハンガリアン表記とかあるよね

https://ja.wikipedia.org/wiki/命名規則_(プログラミング)

**デフォルトの名無しさん** · 2020/06/04(木) 07:06:03.13

>>489
Fortranが始まりが正解

**デフォルトの名無しさん** · 2020/06/04(木) 08:16:07.75

ループのiはindexのiかと思ってたわ
for(i=0;i<10;i++)
　value[i] = ～～的な

**デフォルトの名無しさん** · 2020/06/04(木) 10:24:37.12

Ｃ列が変数aと同じ値で、かつＤ列が変数bと同じ値で、かつＥ列が変数ｃと同じ値の各行で
Ｚ列（整数）が最大値の行の行番号を変数iに代入する方法を教えてください

Dim r As Long,i As Long
Dim a As String, b As String, c As String

For r = 5 to lsr
If Cells(r,3) = a And
Cells(r,4) = b And
Cells(r,5) = c Then
Rows(r).???
End If
Next cnt

i = Application.WorksheetFunction.Max(???)

**デフォルトの名無しさん** · 2020/06/04(木) 12:04:02.17

>>510
Ｚ列の"暫定"最大値を保持する変数を使います。
Dim r As Long,　i As Long
Dim a As String,　b As String,　c As String
Dim Z_v As Long　　　'追加部分
Dim lsr As Long　　'定義漏れですよ
lsr = 処理範囲の最終行をセット
Z_v = 0　　　　' Z列の最大値が負になりそうなら-9999999999などとしておく
For r = 5 to lsr
　　If Cells(r, 3).Value = a　And _
　　　　Cells(r, 4).Value = b And _
　　　　Cells(r, 5).Value Then
　　　　If Cells(r, "Z").Value > Z_v Then　　' 暫定最大値を超えたら
　　　　　　Z_v = Cells(r, "Z").Value　　　　　' 暫定最大値を更新
　　　　　　i = r　　　　　　　　　　　　　　　　　' 行位置も更新
　　　　End If
　　End If
Next

最大値となる行が複数あった場合は、最初の行位置が　i　の値となります。

**デフォルトの名無しさん** · 2020/06/04(木) 12:13:10.50

>>511　の修正
Cells(r, 5).Value Then
の行は
Cells(r, 5).Value = c Then　　です

**510** · 2020/06/04(木) 13:00:40.05

>>511
ありがとうございます！いつも勉強になりますm(__)m

**デフォルトの名無しさん** · 2020/06/04(木) 14:32:12.42

>>503
レスありがとう。
どうも同時に開いているブックに大量の関数が配置されているとListObject内でLoop入力時に遅延するみたい。再計算Offでも。
まっさらのブックにテーブル１個作ってLoop書き込みしたら瞬時だった。
そこに関数を多く含むブックを同時に開くことで、上記のテーブルで遅延が発生。特に自作関数が影響大きいみたい。
追加で開いたブックからシートを一つずつ削除→計測を繰り返したら、少しずつ早くなって、最終的に瞬時になった。
数行ならパラパラッって感じで気にしなくていいんだろうけど行数が多いとかなり待たされる。
ちなみに対象のテーブルを「範囲に変換」するとどんだけ関数を含んでいようが瞬時に書き込まれる。
こんなもんだと思うしかないのかもだけど、再計算Offでも影響を受けるのが納得いかない。
Win7 on vmwareな環境で試したので自宅のWin10でも試してみる。

**デフォルトの名無しさん** · 2020/06/04(木) 15:52:15.99

おれ、昔は i , j ばかり使ってたけど、最近は回す配列の名前を反映した変数を使ってる
Forブロックが単独で存在するならいいんだけど、if や　他のForブロックと組み合わさって
階層構造になってると、だいぶあとになってメンテするときに理解が遅れる

**デフォルトの名無しさん** · 2020/06/04(木) 16:42:33.52

いいね

他にもループ内の処理をそのまま関数にしてしまう方法もある
コメントを書かなくても処理の意味を関数名として記述できるし、再利用性も高まる。
おまけとしてVBAの構文にはないcontinue（処理を中断して次のループへ入る）が行える。

もしくは再帰関数を定義してfor文自体を無くすという凝った方法もある。

**デフォルトの名無しさん** · 2020/06/04(木) 18:37:05.61

データモデルに入れたデータからSQLを使ってシートに出力する方法を教えてください。

ネットになかなか情報がなくて
ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook.Connections("クエリ - パワークエリ名"), Destination:=Range("$A$1")).TableObject
から
.WorkbookConnection.OLEDBConnection.CommandText = "テーブル名"　にするとテーブルを出力

.CommandText = Array("EVALUATE CALCULATETABLE('テーブル名' , 'テーブル名'[項目名] =""検索語"" ) ")
.CommandType = xlCmdDAX
のようにするとDAX式で加工したテーブルを出力できるようになりましたが、SQLを使用する方法がわかりません。

**デフォルトの名無しさん** · 2020/06/04(木) 19:00:14.86

馬鹿ではなさそうだが、しつこい教えてクレクレに呆れる
ググれよ

**デフォルトの名無しさん** · 2020/06/04(木) 19:01:01.58

>ネットになかなか情報がなくて

逆にそれを探し当てる方が難しいと思うんだが・・・。
とりあえず、マクロを記録しながらMSクエリを操作すれば答えが出ると思う。

**デフォルトの名無しさん** · 2020/06/04(木) 19:03:34.01

>パワークエリ名

あ、2016以上か。
パワークエリがあるせいで、MSクエリにたどり着かなかったということか。

**デフォルトの名無しさん** · 2020/06/04(木) 19:43:02.85

>>516
同じ処理を関数にするのはよくあることだけど、同じ処理を括るよりは意味合いで括る方が上策だと思う。
適切に関数に分けていれば、そもそもそんなに入れ子にならんだろう。

再起なんて、それこそ意味合いで自然に出来上がるもんで、無理して作るもんじゃねえと思うんだが。

**デフォルトの名無しさん** · 2020/06/04(木) 22:08:56.53

Sub セル構成を2行3列に()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
　j = 2 '←ここで何列おき
　Set rng = ActiveSheet.UsedRange
　For i = rng.Columns.Count To 8 Step -1
rng.Cells(10,i).Resize(10,j).EntireColumn.Insert　　Next　　Set rng = Nothing
Range("G10", "I510").Merge Across:=True
Range("J10", "L510").Merge Across:=True
Range("M10", "O510").MergeAcross:=True
Range("P10", "R510").Merge Across:=True
Range("S10", "U510").Merge Across:=True
Range("V10", "X510").Merge Across:=True
Range("Y10", "AA510").MergeAcross:=True
Range("AB10", "AD510").Merge Across:=True
Range("AE10", "AG510").Merge Across:=True
Range("AH10", "AJ510").Merge Across:=True

**デフォルトの名無しさん** · 2020/06/04(木) 22:10:21.75

Range("AK10", "AM510").MergeAcross:=True
Range("AN10", "AP510").MergeAcross:=True
Range("AQ10", "AS510").Merge Across:=True
Range("AT10", "AV510").Merge Across:=True
Range("AW10", "AY510").MergeAcross:=True
Range("AZ10", "BB510").Merge Across:=True
Range("BC10", "BE510").Merge Across:=True
Range("BF10", "BH510").Merge Across:=True
Range("BI10", "BK510").Merge Across:=True
Range("BL10", "BN510").Merge Across:=True
Range("BO10", "BQ510").MergeAcross:=True
Range("BR10", "BT510").Merge Across:=True
Range("BU10", "BW510").MergeAcross:=True
Range("BX10", "BZ510").Merge Across:=True
Range("CA10", "CC510").MergeAcross:=True
Dim po As Long, ro As Long
For gg = Cells(Rows.Count, "E").End(xlUp).Row To 11 Step -1
Rows(po + 1).Insert
For ro = 5 To 79
Cells(po, ro).Resize(2).Merge
Next ro　　 Next po
HorizontalAlignment = xlCenter
VerticalAlignment = xlCenter
Application.DisplayAlerts = True
End Sub

VBAの勉強すらしてない俺が10個くらいのサイトからパクってつなげて一応希望通り動いた
setとかレンジ型とか意味わからんわ…

**デフォルトの名無しさん** · 2020/06/04(木) 22:13:08.78

For po = Cells(Rows.Count, "E").End(xlUp).Row To 11 Step -1

ここはこうだったな俺の変数癖だわ
なんかもう難しすぎて勉強するよりネットで検索してパクって繋げたほうが楽な気がする
39歳からVBA覚えるって脳みそがついていかんわ

**デフォルトの名無しさん** · 2020/06/04(木) 22:15:04.15

そんな報告いらん
自分の日記スレでも立てればいい

**デフォルトの名無しさん** · 2020/06/04(木) 22:15:05.91

隙あらば馬鹿が日記を書き込む

**デフォルトの名無しさん** · 2020/06/04(木) 22:19:18.86

隙あらば馬鹿って言いにきてんの？
定期的に馬鹿としか書いてないけど

**デフォルトの名無しさん** · 2020/06/04(木) 22:22:05.20

そうして精神を保ってるとでも思っておこう

**デフォルトの名無しさん** · 2020/06/04(木) 22:43:14.91

>>527
馬鹿は黙っていろよ

**デフォルトの名無しさん** · 2020/06/04(木) 22:57:09.20

セルにコメント挿入して中の文字色を一部だけ変えれる事って出来ますか？

strTxt=111111(vbtab)223(vbtab)8975

例えばこんな文字列の223だけ赤色、それ以外は黒色。

**デフォルトの名無しさん** · 2020/06/04(木) 22:59:22.67

>>527
お前の書き込みは馬鹿の自己満足以外の何物でもないぞ

**デフォルトの名無しさん** · 2020/06/05(金) 00:25:19.46

>>530
Cells(1, 1).AddComment "あいうえおかきくけこさしすせそ"
Dim c As Excel.Characters
Set c = Cells(1, 1).Comment.Shape.TextFrame.Characters(2, 10)
c.Font.ColorIndex = 3

例えばこれだと、コメントを追加して2文字目から10文字のフォント色を色番号3=赤に変える
という処理になるよ。
他にもフォント,太字斜体,サイズとか、fontクラスのものなら何でも変えれるね。
処理的には変更開始と文字数をどう特定するかだけど頑張ってね

**デフォルトの名無しさん** · 2020/06/05(金) 00:27:45.38

>>530
comment.shape.textFrame.characters

**デフォルトの名無しさん** · 2020/06/05(金) 00:50:59.98

39歳で限界とか。元々能力が低いとしか。

**デフォルトの名無しさん** · 2020/06/05(金) 05:51:53.87

>>534
なんだと、このハゲ！

**デフォルトの名無しさん** · 2020/06/05(金) 06:27:32.36

>>522
一応解説すると、、、

値にはいろんな型があるけど、
　文字リテラル（例："Hello"）
　数値リテラル（例：123）
　日付リテラル（例：#2020/6/5#）
　真偽値 (例：True)
　上記で構成される配列(例：Array("月","火","水") )
これらは（またはこれらの値を返す式）はイコールだけで変数にぶっ込めるけど、
これら以外はすべてオブジェクトと見なされるので、
　Set 左辺＝右辺
の記述で変数に代入する必要がある。
例えば、ブック、シート、といったものはすべてオブジェクト扱い。
もちろんセル範囲(Range)もオブジェクトなので、Setが必要。

範囲オブジェクトを返すには Range("アドレス記述")で表せるけどこれだと
示してくれた例のように全部書き出す必要がありコードが冗長になる。
そんなときはCells(行,列)の記述で範囲オブジェクトを返すとLoop処理で
簡潔に記述できる。

Cells(行,列)だと１セルしか表せないからRangeと組み合わせて
　Range(Cells(行,列),Cells(行,列))
みたいに記述すれば指定範囲を表現できる。
または、
　Cells(行,列).Resize(500,3)
みたいに記述すれば範囲サイズを拡張できる。

あとはForで行、列の変数をうまうコントロールすればOK.

理解の助けになるといいけど、、

**デフォルトの名無しさん** · 2020/06/05(金) 06:58:05.99

>>535
年齢を言い訳に使ってる時点で人として残念な人でしょ

**デフォルトの名無しさん** · 2020/06/05(金) 07:40:51.89

まったく最近の若者は……

**デフォルトの名無しさん** · 2020/06/05(金) 08:25:59.68

勉強の話が出てるけど上級者だって全てを覚えているわけじゃない。

>>532のCharactersの話だって、取りあえずこの後に"("を打って見れば説明が出てくるんで、そこから推理してる。
そして推理したら実際に別でテストする。
上手く動いたら、うっすら何となく覚える。
うっすら覚えてる場合は次回も"("打ってからの推理から始まる。
それで問題は起こらないし、何回か繰り返せば完全に覚える。

丸暗記は大変だし結果的に覚えない。