Excel VBA 質問スレ Part64 YouTube動画>9本 ->画像>4枚

!extend:checked:vvvvv:1000:512

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

※前スレ
Excel VBA 質問スレ Part63
http://2chb.net/r/tech/1568630099/

---

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

>>1
MSgbox "乙"

北海道のグラサンのハゲはここにこないのー？

前レスナンバー999

なんとなくわかるけど
a = msgbox 文字列

これならmsgboxが戻り値とわかるが
cells.border()

これはborderの戻り値が〜じゃなくてcellsの戻り値がボーダーに入ってんじゃないの？
関係図を教えて

>>4
じゃないの
a = cells()
a.border()
って事なの

セルのボーダーのラインスタイルの戻り値にxlInsideHorizontalを入れようとしている。

>>7
多分、初心者は何言ってるかサッパリ分からんだろうなw

>>8
そう・・・
>>4
「Cells.Borders」は
1.アクティブなWorksheetオブジェクトのCellsプロパティを参照(Get)
　→戻り値はRangeオブジェクト
2.RangeオブジェクトのBorders（Borderではない）プロパティを参照(Get)
　→戻り値はBordersオブジェクト
という表現。
Borders()の括弧の中にxlBordersIndex定数を指定した場合、
戻り値はBorderオブジェクトになる。

「いきなりプロパティからはじまるのはおかしい」と思うかもしれないが、それは>>7に書いたとおり色々と省略しているから。

>>10
インスタンスねぇ…
プログラム1ヶ月の人にわかると思う？荒らしか？

メソッドの引数は普通だけど、プロパティの引数って特別な呼び方ある？
よく考えたら他の言語にプロパティの引数って見たことないような

>>11
それがわからんと理解できないよ
そもそも一般には聞き慣れないと言うだけでそんなに難しい概念じゃないし

>>12
インデクサの一種だろ

インスタンス？
VB.Netとかだと最初の1日目か2日目に学習することだとか言ったらまた荒れるんだろうなぁ

インスタンスとクラスが分からないとお話にならんわな
式で参照取得しているものが何なのかまるで分かってないってことだから

上級者でもわかってないと思うけどな。
シートモジュールに書くと、エラー出た時に、どこで止まったか分からないから、
標準モジュール書け!とかさwww

そんな話じゃね―だろ。
Cells(1, 1)はA1セルを返す。

Cells(1, 1).Borders(xlDiagonalDown)はA1セルの右下がり斜め線の罫線を返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyleはA1セルの右下がり斜め線の罫線の線スタイルを返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyle = xlContinuousはA1セルの右下がり斜め線の罫線の線スタイルに直線を代入(設定)している。

初心者はこの程度の理解でOK。

>>17
それは上級者ではない。

>>17
自分で作ってないだろ

ｸﾘｯﾌﾟﾎﾞｰﾄﾞの文字を操作するのはdataobjectで可能らしいですが、
スクショ撮った後に任意の座標の画素値を自動で取得するのは不可能なのでしょうか？
また、やるとするとシートに画像貼り付け→画像をbmp保存→その画像をバイナリで読み込みという流れになってしまうのでしょうか？

>>18
返す
直線を代入
このあたりの表現の曖昧さでひっかかるかどうかが初心者に留まる人と上級者になれる人の違いってことだわな

>>21
スクショ取った後じゃないとダメなの?
別にスクショ取らなくても取得できるんだが。
勿論スクショ取った後に、そのスクショの任意座標の画素値も取得できる。

>>21
シートに画像貼り付けとか必要無い。

>>23
やりたいこととしては、囲碁やオセロなどのゲーム中に、盤面をリアルタイムにスクショ等をして、そこから各座標の色を読み込むことで盤面をデータ化するという流れなのですが、画像保存の手間を省けるのであれば教えて頂きたいです。
dataobjectだとgettextでテキストのｸﾘｯﾌﾟﾎﾞｰﾄﾞは読み込めるのですが、スクショだとできませんでした、、

>>25
いちいちクリップボードにスクショを入れなくても、ゲーム画面のデバイスコンテキストがわかれば、自由にピクセルの色を調べたり、逆にピクセルを書き込んだりできる
http://excel.syogyoumujou.com/memorandum/get_dc.html

>>26
デバイスコンテキストなるものがあるのですか、、知らない概念でした、、
スクショ取るのは余計なステップだったのですね。素人にはこの発想しかなかったです
難しそうでまだざっとみただけですが、画面の画像認識系の自動化はこのやり方が基本なのですかね。
ゆっくり読んでやってみます！ありがとうございます

ちなみにｽｸｼｮでも可能とありましたが、その際はdataobjectではなく同様にwin32apiの何かを使うことになるのでしょうか

gdiplus.dllを使う感じかな

>>27
>>26のリンク先に殆ど書いてある。
指定座標のピクセル値を取得するなら他にGetPixelを使う。
ただ、こいつは遅い。
大量に取得するならgdiplus系のGetPixel使った方が速いけど、そこまでする必要は無いかと思う。
どっちにしてもこの辺が自在に扱えるなら間違いなく上級者だね。

>>29
>>26のリンク先の内容で行くならgdiplusじゃない。

>>29>>30
ある程度の範囲の取得になると方針が変わるのですね、、
とりあえずまずはリンク先のやり方を勉強してみることにしてみます。
ご丁寧にありがとうございます。

VBAスレの方でも質問させていただいたのですが、こちらのスレにも詳しい方がいらっしゃるようなので、質問させてください

Exchange / Outtlook VBAの質問です
初歩的な質問で申し訳ありません

任意の名前を持つ配布リストや連絡先グループに属するExchangeユーザーのSMTPアドレスの一覧を取得するにはどうしたら良いのでしょうか

配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません

なお配布リスト、連絡先グループいずれも個人ユーザーのみが登録されている前提なので、再帰によるメンバー取得は不要な状況です

>>32
> 配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません
その部分のコード貼れよ

yokokara

>>32
先に質問した方でちゃんと断ったん？

outlookを使わなければならないような身の上には同情する
さすがに人少なそうだしいいんじゃないかな
俺はoutlook自体持ってないから良くわからないや。あれまだあるのか

今のOutlookは使いやすくなってるよ
俺の中のOutlookは2000で止まってたから久々に使うことになってびっくりした
もはや別物

そうなのか？
大変そうだしoutlook入ってるし使ってみるか、と思ったらメールアドレスが必要なので諦めた
頑張って！

2013時点ではまだ使いにくい…

正直メール関係でマクロは怖いな
ローカルでサーバ建ててテストするならともかくExchangeでいきなり本番環境でしょ？

アカウント情報やOutlookアイテムの読み取り、アイテムダウンロードだけならExchange環境でのマクロ使用を恐れる理由はないかと思う

すみません、お力を貸して頂きたいです。超初心者です。

固定長形式テキストデータを読み込んでExcelに落としたいのですが、ファイルの名前がその時によって違うので、下記のようにファイル名固定ではなく、
”C:\test\"をオープンさせてその中から選択したテキストデータを読み込むようにしたいです。
試行錯誤しているのですが、作成完了まで時間がなく基礎的な知識も足りず、、　そのように書き換えて頂けないでしょうか；；

Sub READ_test()
Const cnsFILENAME = "\test1.txt"
Dim FSO As New FileSystemObject ' FileSystemObject
Dim TS As TextStream ' TextStream
Dim GYO As Long ' 収容するセルの行
Dim strREC As String ' レコードを収容する変数

' 指定ファイルをOPEN(入力モード)
Set TS = FSO.OpenTextFile(ThisWorkbook.Path & cnsFILENAME, ForReading, False)
' 2行目から開始
Rows("2:65536").ClearContents
GYO = 2
Do Until TS.AtEndOfStream
' レコードの読み込み(改行発見までの可変長⇒Ascii変換)
strREC = StrConv(TS.ReadLine, vbFromUnicode)
' １レコード分のセルへのセット
Call GP_EDIT_FixLngRec(strREC, GYO)
' 行を加算
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub

続き

Private Sub GP_EDIT_FixLngRec(strREC As String, GYO As Long)
Cells(GYO, 1).Value = FP_GET_REC_To_String(strREC, 1, 5)
Cells(GYO, 2).Value = FP_GET_REC_To_String(strREC, 6, 5)
End Sub

Private Function FP_GET_REC_To_String(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As String
Dim strREC2 As String
strREC2 = Trim(StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode))
FP_GET_REC_To_String = strREC2
End Function

Private Function FP_GET_REC_To_Numeric(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As Currency
Dim strREC2 As String
strREC2 = StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode)
FP_GET_REC_To_Numeric = CCur(strREC2)
End Function

目がチカチカするから大文字変数関数やめろ
COBOLかよ

>>45
できました…！！
本当に助かりました、ご親切にありがとうございます！！；；
時間が出来たらQueryTableも調べてみます！

>>46
動いてよかった
急いで書いたからDim cDirの行とか要らない行が入ってたわ、ごめんね
テキスト読み込みなのにCSVどうこうとか言っちゃってるし
適当にコード直してつかってね

>>47
了解です。
頂いたコードは今後勉強する時にも参考にさせていただきます…！
本当にありがとうございました！

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、
Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub getFileLastSaveTimeButton()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

Cell(8,1).Value の(8, 1)=A8セルに
目的のファイルのフルパスを入力済みなんだけど、
ここを定義された名前に置き換えたい。

Worksheetで普通に
A8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と出てしまうのは、なんでだろ？
Public Subだから？

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
　ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub LastSaveTime()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

これ自体は上手くいくんだけど、
目的のファイルのフルパスが入力済みの、
Cell(8,1).Value の(8, 1)=A8セルを
定義された名前に置き換えたい。

Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と中途半端なエラーが出てしまうのは、なんでだろ？
Public Subだから？

ごめん。

専ブラ不調で
>>49,50と、
二重投稿になってしまった。

>>50
Range(名前).Value

>>52
ありがとう。やってみた。
・・・

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

だって。

yokokara

>>53
違うブックや違うシートがアクティブになっているとかで、名前付きセルが見つけられなくてエラーが返ってきてるんじゃないの
ブック名を指定して式を書き起こせば問題なく動くと思うが

>>53
Rangeにブックやシートの指定してる？

MsgBox R_TargetFullPath

で何が表示されるか見てみたら?

>>55
ありがとう。

フォルダパスも名前を定義しているんだけど、
まずはその定義名を使わず、以下でやってみた。

With .Workbooks.Open(R_TargetFullPath)
　↓
With .Workbooks.Open(Range("E:\Excel研究\前回保存日時の取得\○○の場合\'Last save timeを得るVBA.xlsm'!R_TargetFilePath").Value)

コンパイルは通った。
で、立ち上げているのは自bookだけなのを確認して
マクロを実行した結果、

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

むぅ・・・

>>56
ありがとう。

>>55 はシート名を飛ばしているけど、
定義名があるシート名も入れ込もうとしたら
どう書いたら良いのだろう？

「ファイル選択」がシート名なんだけど、
・・・\'Last save timeを得るVBA.xlsm'!ファイル選択!R_TargetFilePath
でも、
・・・\['Last save timeを得るVBA.xlsm']!ファイル選択!R_TargetFilePath
でも、結果は
　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト
だった。

>>59
死ね

>>57
ありがとう。

目的のファイル指定は取りあえず置いといて
画面抑止のままのこの主旨でいいのかな？

Public Sub LastSaveTime2()
With CreateObject("Excel.Application")
.Visible = False
MsgBox R_TargetFullPath
End With
End Sub

で、MSGの結果は、中身がブランク。

>>60
どうぞお幸せに。

>>59
普通にシート指定すればよい
はっきり理解できてないのにブックもシートも指定せずセルを扱うなんて危険なことはやめた方がいい

ところでR_TargetFullPathはセル名と言ってなかったかな？
>Workbooks.Open(R_TargetFullPath)
これが通るってR_TargetFullPathの中にフルパスが入ってるとしか思えない

>>63
> 普通にシート指定すればよい

その「普通」がよく分からなくて。
>>59 で試行したように、
sheet上での関数に他のbookから参照させるのとは
勝手が違うようだ。

> ところでR_TargetFullPathはセル名と言ってなかったかな？

は、>>50 で書いたとおり、
Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
としただけ。

>>64
シート指定とか調べず勘でやってるのか？
基本が無いのに勘で文法は書けないよ、知らないならちゃんと調べた方がいい

名前を定義とは、$A$8セルに「R_TargetFullPath」という名前を付けたと言ってる？
ちなみにVBAでR_TargetFullPathという名前の変数か定数作ったりしてない？

R_TargetFullPathに何を入れたいのかもう一度よく考えてコードを見直せ

いろいろ考えてくれた皆さん、どうもありがとう。
自分の考えを上手く伝えられず、申し訳ない。

自分なりの考えで、確証は得られていないけど、
・"BuiltinDocumentProperties" を使った「前回更新日時」の取得は、対象ファイルをいちいち開かないと取得出来ないため、Public Subでやるしかない。
・が、Range(定義名)では、例えアクティブな自sheet内の定義名でもなぜか上手く取得出来ない。
・ただし、アクティブなセルをCells(行数, 列数)なら値取得が出来る。
ということかと。

ならば、「1つのファイルの日時を取得するのに定義名を使う」考え方を変えて、
・Cells(行数, 列数)を活かして、フォルダにDLした .xl* ファイルの、全ての前回更新日時を取得する。
としたら、出来た。

3つめの "Public Sub LastSaveTime3()" をボタンにマクロ登録


Power Queryで取得したフォルダ内.xl*ファイル一覧表（タイトルが黄緑色の列）の右列に
上記VBAで「前回更新日時」を取得した結果（タイトルが深緑色の列）

ここには北海道のグラサンスーパーハゲザーこないのー？

>>67
ブックとシートを指定せずにセルを指定してるから取得できないと何度…
指定してないからアクティブなシートを拾いに行く
アクティブなシートに名前の定義がなければ当然名前の定義を取得できるわけがない

>>67
Public Subによる制御フローじゃないとドキュメントプロパティを参照できないなんていう制約は存在しないと思う

>>70
ただのSubに変えたら、ダメだった。

>>69
仰いますけど、
参照しようとした定義名は、自bookのアクティブsheet内だす。

>>71
参考にしたのはMSコミュニティのこれ↓

https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other-mso_2010/%E5%89%8D%E5%9B%9E%E4%BF%9D%E5%AD%98%E6%97%A5/97f992ad-416d-e011-8dfc-68b599b31bf5?messageId=33ce5330-cb6f-e011-8dfc-68b599b31bf5&;auth=1

Range("R_TargetFullPath").Value

>>72
そのシートがアクティブになっていれば取得できる
なってなければ取得できない
取得できないということはアクティブだと思い込んでるだけか、名前が間違ってるか、指定が間違ってるか

>>72
シートは一つ？別のシートにも同名範囲があって特定できないとか？

>>74
それだと1004エラーが出たらしい

>>73
これはサブルーチン呼び出しの都合でPublicスコープにしているだけで、BuildinDocumentPropertiesの仕様とは関係ないのでは

名前付き範囲のスコープの問題もありそう

>>77
その時は
Range(R_TargetFullPath).Value
としたんじゃないか？>>52-53

ページに設定しているフィルターの解除をする場合

Range("E5").Select
Selection.AutoFilter

といった具合にRangeとセットで使うしか無いのでしょうか？
ここでは、VBAで「E5」を指定していますが、中のデータが入力により空になる事もある為
Range指定する事なくフィルタを解除したいです。

>>81
ページって何？シートのこと？
それとも印刷範囲のこと？

シート１のJ１〜J220のセルをシート２に行で張り付けて
それをどんどん繰り返して１〜48400の列を220*220の表にしたいんだけど、forに対するnextが無いと怒られます
3つのforに対してnextが足りてないのはわかるのですが、適当な場所においてもエラーが出ます
どうしたら解決するでしょうか？

Sub TEST4()
Dim S1 As Worksheet, S2 As Worksheet
Dim i As Integer, y As Integer, z As Integer

For i = 1 To 220
For y = 1 To 48181 Step +220
For z = 220 To 48400 Step +220

Set S1 = Worksheets("Sheet1")
Set S2 = Worksheets("Sheet2")
S2.Range("A" & i & ":" & "HL" & i).Value = S1.Range("J" & y & ":" & "J" & z).Value
Next

End Sub

>>83
間違った場所に置くからエラーが出るんでしょうな

>>83
シート1には既に220*220の表があって、それをシート2に縦横入れ換えて貼り付けたいってこと？

現在表示しているワークブックからファイル名の一部を取り出して、その数字をMsgBoxで表示するなど他の計算で使うことってできないでしょうか？

例えば「01-5.xlsx」の場合「-5」、「02+5.xlsx」の場合「5」、「03+1000.xlsx」の場合「1000」、「04-1234.xlsx」の場合「-1234」のような形
左の数字は2桁、右の数字は1〜4桁でファイルによって違います
0や小数点以下の数字はありません
ファイル名がプラスの場合とマイナスの場合があります
正数の場合ファイル名は+表記ですが記号自体は必要ありません
「マクロを実行しているワークブック」ではなく「現在表示しているワークブック」のファイル名を参照したいです

プログラミングの経験が全くなくて先週からマクロを触り始めたので不可能なことを質問かもしれませんがよろしくお願いします

>>84、866
スゲーできたーありがとうございます。中身よく見て、勉強します。

>>87
シート１に１列で48400ほどデータがあるんで、それを別シートに220*220の表にしたかったんです。

>>88
+ または - を区切り文字としてThisworkbook.NameをSplit関数で分割して配列化する

得られた配列の二つ目の要素を取り出して整数型に型変換する

この二つのステップを実現すれば良い

>>88
よく要件を読んだらThisworkbook.Nameより
ActiveWorkbook.Nameの方が良いかも

>>90
-が消える上に.拡張子まで全部取得する羽目になる

ファイル名を.で区切った1個目の3文字目以降を取得して数値変換すればいい

>>82
シートです！

>>81
Worksheets("シート1").Autofiltermode ＝ false

>>83
For NextではNextの後を省略すべきじゃない。
For Eachならまだ分かるが。

>>95
サンキュー！！

それ多分フィルタ掛かってないとコケる。
On Error〜か、If AutoFilterMode Then入れないと。

>>98
Falseにする分には問題無い。

>>88
Sub test2()
'整数を格納
Dim lngFileName As Long

'正規表現オブジェクトを作成
Dim objReg As Object, objRegMatch
Set objReg = CreateObject("VBScript.RegExp")
With objReg
'ファイル名のパターンを指定
'[半角数字2文字][区切り文字1文字][半角数字1〜4文字][拡張子(xlsxまたはxls)]に一致
.Pattern = "^\d{2}.(\d{1,4})\.(?:xlsx|xls)$"
.Global = True
End With

'正規表現にマッチしないファイル名だった場合の処理
Set objRegMatch = objReg.Execute(ActiveWorkbook.Name)
If objRegMatch.Count < 1 Then
'メッセージボックスを表示
MsgBox ("正規表現アンマッチ")
'Label1にジャンプして処理を終了
GoTo Label1
End If

'正規表現のグループ化した部分を整数として格納
lngFileName = objReg.Replace(ActiveWorkbook.Name, "$1")

'メッセージボックスを表示
MsgBox (lngFileName)
Label1:
End Sub

ここには北海道のグラサンスーパーハゲザーこないのー？

ファイル名に + と - は使えないんじゃね

あれ？使えるのか

>>103
使えるけどコマンドプロンプトでトラブルが起きることがあるから推奨しないと主張する派閥もいる

特定のディレクトリに複数のエクセルがあってそのエクセルの特定のシートに値を設定するってマクロを作ったところなんですが特定のシートがない場合は処理を抜けるようにするのってどうすればいいんでしょうか

バイナリデータをエクセルに16列で読み込んで（ここまでは出来た）、
今度はそれの逆をしようとしているのですが最初で詰まっています

とりあえず1列だけでもと、やってみたものの全然うまくいきません
サンプルのOutputをBinaryに、Print をPut構文にすればできるような気がするのですが
出力ファイルにデータが反映されてなかったりといった状況です

Sub make()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim datFile As Variant
datFile = ActiveWorkbook.Path & "\data.bin"

Open datFile For Output As #1

Dim i As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""
Print #1, ws.Cells(i, 1).Value
i = i + 1
Loop

Close #1

End Sub

>>105
Dir関数かFileSystemObject. FileExistsで調べられる

>>105
ファイル存在確認じゃなくてシート存在確認かごめん

>>108
シートがない場合の件はForで回して無事解決できました

VBAで名前定義がされたセルに値を書き込む際名前定義の範囲がシート指定の場合操作できないのでしょうか

>>106
出力するデータの型がバイナリになっていないとだめかも

>>110
そんなことないはず。

北海道のグラサンスーパーハゲザーはここにこないのー？

PDFからのデータ取得ってどうにかならんもんかな。
Adobeの有料版使ってエクセル変換してるが、フォーマットによってはレイアウト崩れが酷くて使い物にならん。
ハイライトリストも試してみたんだけど、文字がぶつ切りでしか取れなくて、速度も遅い。
座標見ながら文字結合するのもアレだし。
RPA的にコピペするのもマヌケだしなぁ。

そんな馬鹿なことをしなくてもいいように業務フローを見直す、が正解

>>114
理論上はPostscriptを完璧にシミュレートすれば可能なはずなんだけど、かなり面倒だしそこまでやってるアプリは今のところ見た事ない
レイアウトが崩れない変換アプリがあるんなら教えて欲しいわ

PDFのレンダリングは完璧なんだから
取得ができないのは本来おかしいんだけどね

環境は、OS:Windows10, Excel2016です。
初歩的な質問ですが、よろしくお願いします。

エクセル開発タブ⇒マクロの記録を選択
マクロの保存先を新しいブックにしてＯＫすると、
新しいブックが表示されてしまいます。（EXCEL2010までは表示はされなかった気がします。）
表示させないようにしたいですが方法はありますでしょうか？

Excelの使い方の質問ですな

>>118
そもそもそんな質問をする理由が分からない
マクロの保存先を作業中のブックに変えればいいだけの話では
RPAとかの都合なのか？

VBAのコードを長時間書いていたら肛門が痛くなりました。
これは何かの病気？いい薬はありますか？

Worksheets(1), Worksheets(2), Worksheets(3), ...
が常にワークシートの並び順になっている事を前提にコーディングしても大丈夫ですか？

止めは先が100%大惨事になるだろうな

>>122
OK
シートの並び順とシートのIndexは連動しているから

ただ他人と共有するブックでシートIndexに依存したコードを書くならば、シートの追加や削除や並び替えをユーザー側で行えなくするために、ブック構成の保護をかける必要はあるかも

>>122
非表示がなければ

インデックス値とシートの順にそんな保証あったかな
使い古しのワークブックだと最初のシートがSheet1とは限らない気がするし

sheet1じゃなくてsheet(1)だぞ
左端がsheet(1)

>>126
CodeNameの話じゃなくてシートインデックスの話だぞ

VBAで拡張子がDWGのCAD図面ファイルから文字列と数字を抜き出してエクセルに貼り付けたいんだけどなんかイイ方法ない？

AutocadのVBA使えば。

>>130
AutoCADのソフトは持ってないんだけど出来るの？

DXFファイルはないのか？

>>132
ないんだ

>>129
VBAからほかのアプリをコントロールする方法があるから、適当なフリーウェアでDXFに変換
DXFはテキストファイルだから文字列がそのまま入ってる

>>134
会社だからあんまりフリーソフト入れたくないんだよなぁ

どこまで読み取りたいのか分からんが、タイトルとかコメントとか作者とかは読み取れるんじゃない?

AutoCAD入ってなくても動くか分からんけどCOM用のAPI使って読み取るサンプルならAutodeskのフォーラムに有ったぞ。

>>135
業務上必要だと上司に相談して無理ならできませんでいいやん

DWGファイルを扱うってことはどっかの部署ではAutoCADが動いてるわけだから環境借りるなりすればいい

何がやりたいのか（最終目的が何なのか）分からないが、
AutoCADのスレで質問した方がいいと思う

AutoCAD総合スレ part7
http://2chb.net/r/bsoft/1556080032/

そんなデータの編集業務ってブラック企業じゃね

図面から読み取る仕事が多くてVBAで自動化できないかと考えてるだけだよ。ブラック企業でもないよ。
バイナリファイルじゃ読み取れないし、フリーソフトで一つ一つテキストファイルDXFに変換っていうのもなかなかナンセンスな気がする

>>141
お前が馬鹿なだけだろ

よかったな天才に教えて貰えるぞ

>>141だけど天才の>>142に教えてほしい。どうしたらいい？

その図面データに営利目的で使用してはいけないって書いてないか？

社内の人が作ってる図面なんだが

だったら保存形式かえてもらえばすむやん

CADファイルならVISIOで開けるじゃね
VISIOにVBA載ってなかったか

DWGもCOM経由でExcelから扱える

Excelで作成したものをフリーOfficeのCalcで開こうとするとエラーが出るので、違うPCのExcelにコードを写したいのですが、どうすれば良いでしょうか？
sheetは5枚でそれぞれデータが入力されています。
そのシートをコピーしてマクロコードをコピペすればできるのでしょうか？
コピーはできても貼り付ける場所が分かりません。教えてください。

マクロは互換性ほぼ無いからなあ

>>150
よく分からん。
ファイルをコピーしてそのファイルをそのまま使えば良いんじゃね?

要はさ、そのマクロのコ―ドがExcelの何を使っているかで変わるだろ。
コードを追って必要なものをコピーすれば使えるだろうよ。

慣れてる人ならできるかもしれんが
初心者じゃ無理だろ、互換性ないし

OOoのVBAは相当単純なものじゃないと動かなかったような
色々省略するのもダメだったような気がする

OOOBasicなんてあるんだな
勉強する人いるの？

OOOBasicというのか・・・
数年前きまぐれにちょっと触って、あまりの互換性のなさに逃げ出したわ

>>150
馬鹿は死ね

なんでBasicにしたんだろね。
後発なんだから選べたはずなのに。

Cに似せるほうが大変だろう

>>158
VBが売れたから、機能はほぼそのままにVBAとしてofficeに搭載した
VCの登場はもっと後
時系列的に仕方ないとは思う
俺もCの方が良いとは思う

oooの話だろ

>>152

PC1のデータをPC2に移したい。でも、PC2にUSBなど外部のものを差し込めないしネットには繋がるけど仮想？か分からないけどデータをPC2のデスクトップとかドキュメントに保存できないので、
データの中身をコピーしてPC2でExcelを開きペーストすれば良いのではと考えたのですが、
Excelのデータを丸々コピーするにはまずシートをコピペしてその後マクロコードをコピペすれば良いのでしょうか？どこに貼り付ければ良いのかわかりません。

PC2のどこに移したいの？
PC2でデータを開き　データの中身をコピーして　Excel（新規ブック）を開きペーストすれば良い
でもその新規ブックは保存できないんでしょ？

会社のＰＣなら上司にまず先に相談しろ

>>163
PC2のデスクトップ
Excelを新規で開けば保存できる。
もしくは開きたいExcelのデータCalcでなら開ける。
Calcで開いてコピーしたものをExcelに貼り付けたら出来るのか？セル全範囲コピーして貼り付けてマクロコードもコピーして。

>>162
馬鹿は死ね

シートの書式がコピーできるかな？

セルね

>>167
死ね

Officeクリップボードをクリアするにはどうしたらよいですか?

>>161
ちゅまん

>>171
かわいい

>>170
その文言でぐぐれ

ちょっと教えて下さい

自動的に新しいcsvファイルが保存されてくるフォルダがあって
新しいファイルが保存されたら処理をするってコードを作りたいんですが
どんな感じにしたらよいのかアイデアが浮かびません

イメージは処理開始としてから処理停止とするまでずっと監視と処理をし続ける感じです
正攻法ってどんな感じでしょう？

定期的にフォルダの更新日時かファイル数を比較

C#に乗り換えてFileSystemWatcherかな
そういうのはサービスにして常時起動したいだろ？どのみちVBAじゃ無理がある

>>174
csvデータは一般機能のpower queryで「フォルダ指定」で取得してから、何らかの加工をする必要があればVBAでやるというのはどうでしょう？

>>174
Application.OnTimeでググればいろいろ出てくる

Excel/VBA: 特定のフォルダ内のファイルの更新状況を監視するマクロ
http://pineplanter.moo.jp/non-it-salaryman/2016/12/30/excel-vba-folder-monitor/

コメントありがとうございます。
C#は知識がなくて・・・。1か月後に必要なんですが今からいけるかな。。。

>>177
すこし理解に時間がかかっています。内容確認してみます。

>>178
参考例ありがとうございます。
更新したファイルだけ処理をしたいのですが、この例だと毎回全ファイルを読むみたいなので
例えば処理したファイル名はシートに記録しておいて
更新起動時に毎回処理したかしてないか判断するのも追加するって感じですかね。

>>179
悪用すると色々できそうだな

ファイルのタイムスタンプで判断すれば？

Ruby で、ファイルの最終更新時刻を取得する

fs = File::Stat.new( "./a.txt" )
p fs.mtime #=> 2018-01-16 13:36:40 +0900 最終更新時刻

p current = Time.now #=> 2019-12-20 11:54:02 +0900
p current - fs.mtime, fs.mtime - current

#=> 60733042.351125, -60733042.351125

>>179
ファイルのアーカイヴ属性を変更すればいいよ。これなら新規以外にも、変更ファイルも拾えるはず。

馬鹿ばっか

ハゲばっか

馴鹿ばっか

クリスマスだから

セルに指定したフォントの情報などを変数（オブジェクト？）として
保持して、別のセルに貼り付けることはできないでしょうか

Public Sub textMacro()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = "testTESTtest"
ActiveCell.Characters(Start:=5, Length:=4).Font.ColorIndex = 3
End Sub

こんな感じで、文字列の途中で色を変えたりフォントを変えたり
した情報を構造体配列として保持しておいて、ソートしたり
特定条件で抽出したりしたデータを、書式ごと別のセルに
貼り付けたいのです

上記のようなコードで一旦別のワークシートに書き込んでやって、
そこを参照してコピーすれば解決します
ですが作業用ワークシートを作るのが美しくないので、なにか
方法がないものかと悩んでいます

>>188
rangeにでも入れとけばいいんじゃないの

>>189
言葉足らずだったかもしれません

188で書いたコードのように、一旦どこかのセルに書式を設定するのではなく、
書式設定済みのデータを内部で生成したあとでセルに貼りたいのです

アドバンスフィルタ使うとか。

>>188
activecellは rangeオブジェクト
rangeオブジェクトは必ずどこかの実態セルに紐付けしないと設定、参照できない
なので、実態セルを使いたくなければ、仮想的に実装するしかない
全てを網羅するには、それは非現実的（ムダ）だから私ならやらない
あとの判断はお任せする
（may be. GL）

ここには北海道のグラサンのスーパーハゲザーこないのー？

>>190
セルのコピーで済む処理をわざわざスクラッチする意味があるのか？
マクロ言語で車輪の再発明をするのは無駄だし結果的に美しくないものが出来上がって終わりなことが多いぞ


まぁ文字列書式の取得をするならRange.Charactersクラスを対象にForで一文字ずつループを回して、Fontプロパティで取れる各フォント属性を調べて構造体配列に格納していけば良い
Characters(i, 1)とか指定すれば一文字ずつ調べられる

具体的にはFontクラスのうち
Bold, ColorまたはColorIndex, FontStyle, Italic, Name, Size, ThemeColor, ThemeFont, Underlineあたりを取得しとけば何とかなるんじゃないか

>>192
>>194
内部データとして、特定の文字だけボールドにしたり赤字にしたりしたデータを
保持しておいて、それをそのままセルに貼れないだろうかという趣旨でした

全然実用性のない例ですが、何らかの名簿データを元データとして入力すると
して、「佐藤」という名字だけを赤で表示したい、というケースがあったとします。

このとき、表示するときに年齢別だったり性別だったりの条件で抽出したりする
際に、毎回セルにデータを書き込むときにフォントの設定をする必要があるのか、
一度設定済みのデータを貼れば済むような方法があるのか、という質問でした

現在は毎回貼るたびにフォントの設定をしているので、もっと効率的な方法が
あるのではないかと考えた次第

でも残念ながら、どうやらなさそうですね
確かにセルをコピーすれば済む話なので、断念します

>>195
鈴木 健二
の鈴木だけを赤文字に設定したセルの書式コピーして
鈴木 太郎
セルに貼り付けしても、鈴木だけを赤にはできなかった
（バージョンによって違うかもだが）
ロジックでやるしかないんじゃないかな
鈴木or宇都宮を赤にするとか

>>196
色々ありがとうございます

今回やりたいのは、鈴木だけを赤くした「鈴木　健二」というセルを作るのに、
事前にデータを作ってからセルに貼り付けたいということですから、
「鈴木　太郎」の「鈴木」が赤くならなくても特に問題ありません

この例で言うなら、コピペ以外の方法で、同じく鈴木だけが赤くなった鈴木健二の
セルを効率よく作りたい、ということですね

>>197
構造体とかでパラメータ設定すればやれないことはない
書式設定対象の文字列の開始オフセット位置と文字列長、フォント属性の設定値からなる構造体配列を作って、一括でRangeオブジェクトのプロパティに代入すれば良い

ただしパラメータを動的に指定する処理やらUIやらを構築する手間とか考えたら結局セルコピーでよくねってなる

office2010から2016へ変えたらマクロの遅さが気になって
セルコピーを別の方法でやれないか考えてる

マクロが遅いんじゃなくてPCのスペックが貧弱過ぎるんじゃないか

>>198
そこまでする価値はないですね
自分が知らないだけで、なにか簡単な方法があるのではないかと思って
いたのですが、そもそも需要がない動作なんでしょうね

>>199
変えたのはExcelだけか?
実はOSを10に変えた時にExcelも入れ替えたのではなく?

>>201
そこまでやるならmhtか何かでコード生成してからxls変換してレンダリングする方がいいよねって話になってしまうからな

んあ

北海道のグラサンスーパーハゲザーはここにはこないのー？

北海道にいるんだろ

あなたのハゲにサクセスしたい

休みに入って大人しくなったな

フォルダ名を取得し名前を変える処理をしたいのですが、フォルダ名の頭に0がついているとセルに取り込んだ際、数値扱いされきえてしまいます。何かいい方法ないでしょうか？
ほぼネットから引用したものですが。。

Sub folder()
Dim folderPath As String
folderPath = Sheets(2).[B1]
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim n As Variant
n = fso.GetFolder(folderPath).SubFolders.Count

If (0 < n) Then
Dim I As Long
I = 1
Dim f As Object
For Each f In fso.GetFolder(folderPath).SubFolders
Cells(3 + I,1).Value=Str(f.Name)
I = I + 1
Next f
End If
End Sub

>>209
・セルの書式を予め文字列にしておく
・
Cells(3 + I,1).Value = "'" & Str(f.Name)
・セルに取り込まずに処理する

どれか

>>210
頭に「'」つける案いただきます！
すっかり頭からぬけておりました。
ありがとうございます！

>>209
頭に'付けるとかセルの表示形式を文字にするとか
それVBAじゃなくてExcelの範疇では

VBAはそもそもビジュアルベーシックフォーアプリケーション
エクセル（他office製品）のための言語
Excelの範疇も何もないよ

セルにフォルダ名を入れなきゃならない理由が全く分からない

PowerQueryにデータの参照元渡すとか

マクロでCSV書き出ししたデータですが
どうも１行ごとに最後のセルの末尾に勝手に改行コードが入っているようです
これはなんとかならないでしょうか

その改行コードもCRLFで言うところのCRだけのようで、見かけ上全くわかりません

aaa,ddd,ccc

とあったら、cccの末尾に見えないCFが張り付いている感じです
urlエンコードで見ると　ccc%0D みたいな感じです
どうしたら綺麗に書き出せますか？

>>216
改行コードをなくした場合、行の区切りはどうするの？
完全に思い通りにしたい時はテキストファイルの生成を自力でやるしかない

セル内で改行しても平気か確認した方がいい

>>216
ExcelではLFがセル内改行、CRLFが次の行
CRは意味を持たないので入ってても改行されない
消したければ普通にその文字を消せばいい

あと勝手に入ってるのではなく元々のテキストファイルに入ってるんだろう

216です

>>217
csvの中のデータとして配列に入っています。書き出したcsvは普通に数行のカンマ区切りです。
それをjavascriptで配列へ取り込みしたときに、
二次元配列データの一行の最後のデータの末尾に毎行追加されている感じです。

配列内
aaa,ddd,ccc%0D
aaa,ddd,ccc%0D
aaa,ddd,ccc%0D

csvとしての改行・配列構成は崩れていません。
ちなみに書き出しは
ActiveWorkbook.SaveAs Filename:=csvName, FileFormat:=xlCSV
です。win7時代に作ったマクロをwin10で使っていますが、それもあるんでしょうか…

>>219
EXCELの改行仕様は知りませんでした。ありがとうございます。
末尾に列を１つ増やしたら取りたいデータにはつかなくなったので
（おそらく、増やした列に%0Dが移動したのかとｗ）、
若干気持ち悪いですが、趣味プログラムなので運用で対応します。


みなさんありがとうございました。

北海道のグラサンスーパーハゲザーはここにはこないのー？

>>216
Excelのsheetに読み込んでから、CRLF等を""に置換する
ではダメ？

一般論として例えば、Ruby のCSV の規格にも、
行区切り文字・列区切り文字・クォート文字などがある

特に設定しないデフォルトでは、それらは、
改行コード・カンマ・ダブルクォーテーションになる

もし、それらが無ければ、CSVの要件を満たさないw
つまり、CSVの規格ではありませんw

ルビカスが何を言おうと、世の中ではExcelが出力するCSVが標準のCSVだ

CSVは自前でテキストファイル読み込み+自前で区切り扱いが基本。
区切りが何であろうと、データの形式が何であろうと全て自分でコントロール出来るし速度も速い。

同意。てか、Excel標準のCSV読み込み仕様もうちょっとなんとかなりませんかね・・・？

それはさておき>>216＆>>221（もう見てないかもだけど）
その「CSVファイルを配列に取り込むJavaScript」のコードに問題があるんじゃないかなと。
具体的には\n(%0A)でSplitしてるから\rが残ってるだけだと思うけどな。

使い続ける以上CSVとの戦いは続くのだ

モダンExcelが一般化してきた今ならクエリでCSVの開き方を指定して読み込むのがいいんじゃないの
CSVをエクセルで直接開くといろいろ勝手なことをしてくれるので

PowerQueryのコードを書くのはVBA以上にハードルが高いぞ

PowerQueryコード書かなきゃいけないの?
GUIでできる範囲だと不十分なの？

PowerQueryだったらもっと簡単だろう
Csv.Documentにソースのパスとメタ情報を渡してテーブルを取得するだけだしGUIでステップ記録できる

CSV読み込みの話してんのになんで書き込みの回答してんだろうこの子

>>234
>>232のコードについて言ってるなら、読み込んでシートに書き出してるわけで、クエリの使い方としてはオーソドックス処理だぞ
読み込んだ結果をシートに書き出さないならODCにデータモデルとして保存すれば良い

>>235
ODCにデータモデルとして→×
データモデルとして→○

>>230
全然。

基本的にはリボンの機能使った操作が１つずつのステップになっていく。
ステップの１つ１つがマクロみたいなもの。
「詳細クエリー」を見て初めて「コードはこうなってるんだ・・・」
という感じ。

もっとも、M Functionのレファレンスやパラメータあたり説明が
英語でもまだ不親切なので、
使えてない部分が多分にはあるけど。
ただ、VBAのように出来る範囲が広範囲なわけではなく、
取得したデータの成形に特化してる。

スクレイピングについては
Pythonみたいに取得対象のWeb画面で
IDやパスワード入力するとか、
ボタンを押すみたいなことも出来ない模様。

データの成形に特化と言ってもVBAでスクラッチすると恐ろしく面倒なJoinとかのSQLチックな処理は全て実行できるので、データ処理の面ではVBAより手軽で便利

あとAccessDBやSQL ServerやOBDCはもちろん、ファイルシステムとかExchangeサーバとかSharePointリストとか、およそデータベースとして扱えるデータストアの情報は全て取得できる

フォルダ内のファイルの属性情報を取得する処理のためだけにいちいちFileSystemObjectのインスタンスとかを使ってスクラッチする必要がなくなると考えればめちゃくちゃ便利

>>227
みています
ご指摘の通り、\nでspritかけてました！
\nってCR+LFじゃなかったんですね…

この後都合があるのですぐには試せませんが、
その辺確認してみます。
ありがとうございます！

\nはLFじゃなかったか
windowsの改行は\r\nだったような

EditBoxでは\r\nでRichEditBoxでは\nだねWindows

CR+LFの定数の vbCrLf か vbNewLine でいいんじゃね

vbNewLineいいよね

>>239
やっぱり。
>>240-241の人もいうとおり、OSだけじゃなくAPI関数ごとに改行コードの取扱いが違ったりすることもあるし、
テキストエディタに内蔵されてる正規表現なんかでも「\n」でCRLFに対応させてる例もあったりするから、
その辺はトライ＆エラーで覚えていくといいとおもうよ。

北海道のグラサンスーパーハゲザーはここにはこないのー？

いつまで過去の人探してんだよ

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" ()
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Expect end of statementとエラーが出ます。
なにがいけないのでしょうか？

>>247
・DLL名（urlmon）の後の()が余計
・1行目と2行目の末尾に「半角スペース」＋「半角アンダースコア」がちゃんとついているか確認
↓こんなかんじ
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

>>248
ありがとうございます。
スペースとアンダーバーが必要だったのですね。

初心者につき基本的な質問かもしれず恐縮なんですが、

�@Range("A10:B12").Value = Range("A1:A2").Value
　とすると、A12:B12は#N/Aとなり、A10:A11、B10:B11はA1:A2の値が貼り付けられるのはなぜでしょうか。
�ARange("A10").Value = Range("A1:B2").Value
　とすると、A10にA1の値が貼付けられるのはなぜでしょうか。

�@については、入力元の行・列範囲が１の場合はそれをひと固まりと認識して、
　出力先の行列範囲＞１の部分も入力元の値を入れようとするため
�Aについては、エクセルの構成上、選択範囲の開始は左上端であり、
　出力先が１セルしかない場合は入力元の範囲の開始セルのみを貼り付けようとするため

などと理由（というか状況でしかない）を言語化してみたのですがいまいち腑に落ちず…
もし仕組みをご存知の方がいらっしゃったら教えていただけませんか…？

>>250
原因はお前の知能障害の頭

Range の使い方ぐらい、検索すれば見つかるのじゃないの？

他人が作った仕様を、推測するのは時間のムダ

それに、推測して当たっているように見えても、
仕様書で確認していない推測では、どのみち仕事では使えない

君のその推測は、確実なんだろうね？
と、単に聞かれても、返答に困るw

たぶん、間違いないと思いますと言っても、
たぶんじゃ困る、仕様書を確認してくれと言われるので、
結局、推測した時間はムダw

>>250
まずは右辺のセル範囲が定数、（複数セル参照）式でどうなるか試してみよう
試す、予想する、検証するのが大切

Power Queryの式がVBAで取得編集出来るの初めて知った
凄い便利だわ

>>254
これとか？

PowerQueryの強力な機能をVBAから利用する方法
https://excel-ubara.com/excelvba4/EXCEL_VBA_408.html

>>240 - >>244
ありがとうございます、お陰様で完全解決しました！
結論としては、>>227 のご指摘が丸ごとそのままでした。
勉強になりました。。。

結局スレチになってしまいましたが、皆様ありがとうございました。

>>255
そうそうこのあたりの機能だな
流石にM言語はエディタ使って書いた方が綺麗に書けるからマクロ記録に頼る理由はないが
あとModelオブジェクトというのも追加されてて、そっちはデータモデル関連を扱える
VBAも本当にモダンExcel向けの機能が充実してきたなぁという感じ

モダンってオワコンWPFの印象が強すぎてちょっと・・・

WPFとSilverlightどっちを習得しようと悩んでた時期が、僕にもありました

>>259
silverlight懐かし〜
自PCでサバ公開して遊んだな〜
今では怖くてできないw
あのwebなのに何でもできる（未来）感は素晴らしかった

その未来はPythonで実現してます

これどういうこと？
https://forest.watch.impress.co.jp/docs/news/1227931.html

どうでもいいんじゃないの。
そんなのが会社のPCで普通に使えるようになるのは、どうせ何年も先の事だろう。

＞今後数週間以内に企業向けの“Office 365”（E3/E5ライセンス）で利用可能となる。

読めないのか？後数週間でＶＢＡは駆逐されるかもしれんのだぞ？

マクロウィルスの共有機能まであるのか

何ヶ月先もVBAの依頼で詰まってるけど

若い人は知らないだろうけど、昔、リニアモーターカーというのがあってね。

>>264
そのくだりを読んで数週間で駆逐されると思う方がおかしい
IE非対応な時点で察しろ

>>262
VBA終了の合図

> 既存のVBAは比較的ハイスキルな開発者向けである
どこの時空の話だろう

これWeb版の機能だろ。
そもそもExcel95の時代からマクロの記録機能は有るだろ。

↓のマクロを実行するとエラー４３８になって動きません。原因を教えてくださいm(__)m

・ＤＥ３とＤＳ３の値のいずれかの高い数値が１であれば、１１行目〜１２行目を削除
・ＤＥ３とＤＳ３の値のいずれか高い数値が２であれば何もしない
・ＤＥ３とＤＳ３の値のいずれか高い数値が３以上であれば、１１行目〜１２行目をコピーして
　ＤＥ３とＤＳ３のいずれか高い数値−２回を、１３行目以降に２行づつ貼り付ける

＊ＤＥ３とＤＳ３はいずれも１以上の整数です

Dim i As Integer
Dim cnt As Integer, a As Range

With ActiveSheet
i = .Max(Range("DE3", "DS3"))
Select Case i
Case Is = 1
.Rows("11:12").Delete
Case Is = 2
' なにもしない
Case Is >= 3
.Rows("11:12").Copy
Set a = .Range("A13") ' 貼り付け開始位置
For cnt = 3 To i '３以上のときはその値回数分貼り付けを繰り返す
a.PasteSpecial xlPasteAllMergingConditionalFormats '貼り付ける種類はお好みで
Set a = a.Offset(2, 0) ' 貼り付け先を２行下へ
Next cnt
End Select
End With
End Sub

>>272
i = WorksheetFunction.Max(.Range("DE3", "DS3"))

>>273
ありがとうございます

あなたのハゲにサクセスしたい

やっぱり少し騒ぎになってたか
お前らこれから少しは
Javascript勉強しといた方がいいぞ

>>276
JSは癖があるけど、あれはwebの話
既にあるオブジェクトに対してどうこうするならVBAと特に変わらんぞ

adobeのJSは本当にクソだった
※オブジェクトに名前がついてないので、「topプロパティが一番大きいオブジェクトにはxx」などと名付けをしなければならなかった

VBAで無名関数とか即時関数は別にやらんやろ
webのJS使ってる人が参入しやすいようにしてるだけやで

Googleスプレッドシートの
マクロ（GAS≒Javascript拡張）を移植するだけだぞ

TypeScriptベースってあるけど
本家と比べてどこまで厳格なのか分からんが

よほどテクニカルな記述しなければ普通に動くじゃろ

Typescriptはアクセス修飾子をサポートしてるから即時関数でのスコープ管理はしなくていいだろ
無名関数は使いどころあるかもしれないが

大慌てしてて草

wshのjscript使うのとはまったく違うのかな？

TSでも時代遅れなんだけどね

お前らってプログラミング言語の話題になると、何ですぐ時代遅れ論争始めるの？

結局仕事の効率を上げれるかどうかが肝だけど新しい言語を使ってる俺すごいで思考停止しちゃうんだろうなー

TSが時代遅れはともかくVBAはさすがにもう仕事の効率とかそういう次元の話じゃない
クレジットカードの有効期限が迫ってるようなもんだ

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TableControl()
Dim ie As InternetExplorer
Dim targetURL As String: targetURL = "http://www.ikachi.org/sample/sample10.html";
Set ie = GetIEObject(targetURL)

If (ie.LocationURL = "") Then
MsgBox "Plz Open the Web page"
Exit Sub
End If
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
Set GetIEObject = Nothing

Dim sh As Object
Set sh = CreateObject("Shell.Application")

Dim w As Object
For Each w In sh.Windows
If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
Set GetIEObject = w
Exit For
End If
Next
End Function
でie.LocationURL = ""でエラーが出るのですが、booleanだがらでしょうか？

>>289
参照設定してないんちゃう

何にも分かってないバカが多い。
汎用言語は正に競合だらけだからこそ、VBAの優位性が理解出来ない。

VBAの対象となってるのは他言語じゃゴミしか出来ない。
今後、TSで同じようなことが出来るならTSに移って行くだけのこと。

>>289
> ie.LocationURL = ""でエラーが出るのですが
なぜかエラーの内容は極秘なんだよね…

>>289
そもそも、これVBAのコードなの?
なんか、初心者がコピペしたんじゃないの?

個人的に間違っちゃいないけど気になるのは、InternetExplorerで宣言してるのにCreateObject使ってる所。

間違ってると思うのはTypeOf。
VBAでこんな単語使ってるの初めて見た。
構文的にこの部分でエラーにならないのにびっくりした。

どちらにしろGetIEObjectでieが空っぽで帰ってる。

一応言っておくがTypeOf自体が間違いじゃない。
こういう単語を使ったコードもあり得る。
でも自分は見たこと無いし、今回のコードもここが間違ってる。

>>293-294
いや、コード的には間違ってない
>GetIEObjectでieが空っぽで帰ってる
のは間違いないけど、このコードが正しく動く前提として
IEで指定されたURLが開いてる必要があるだけ

まあ指定URLが開いていたら、下のIFがスルーされるから
示された部分だけでは何がしたいコードがよくわからんが

一応Win10の365で動くか試したみた結果ね

つか気になってちょっと調べてみたけど
TypeOf って日本語ドキュメントに記載ないっぽいな
VBAのバージョンとかで使えないかもしれん

なんにせよShellでIE取得して操作とかお勧めしかねるけどな

289です。
>> 292
すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。

>> 293
Excel VBAでクローリング＆スクレイピング（五十嵐貴之著）のP137に書かれているコードなのですが。
余りよくないのでしょうか。

>>297
> すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。
原因は>>295が書いてる通りだと思うのでとりあえずIEでサイト開いてから実行してみて

> 余りよくないのでしょうか。
残念ながらあんまり良くはない
例えば
> If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
とかVBAが短絡評価しない事を知らないみたいだし

北海道のグラサンスーパーハゲザーはここにはこないのー？

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉ ﾟ+.ﾟ━━━━!

>>298
そもそもShellWindowsオブジェクトはイテレータでIEオブジェクトを渡してるから型判定自体不要

修正版

Sub TableControl()
Const targetURL$ = "http://www.ikachi.org/sample/sample10.html";
Dim ie As InternetExplorer: Set ie = GetIEObject(targetURL)
If ie Is Nothing Then MsgBox "Plz Open the Web page": Exit Sub
'残りのコード
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
For Each GetIEObject In CreateObject("Shell.Application").Windows
If GetIEObject.LocationURL Like targetURL Then Exit Function
Next
Set GetIEObject = Nothing
End Function

久々に書いたから変な部分あるかもしれないが、これで一応MsgBoxは開く
個人的には、こんなややこしい事せずに普通にVBAで開いた方が確実だと思う

AndAlsoってないんだっけ？

AndAlsoやOrElseはVB.NET
もうVB.NETでもいいからExcelに載せろよとは思う

はいネトウヨ論破ｗｗｗｗ
現実という劇薬を投与されて憤死したなｗｗｗｗｗ

誤爆したわ

イラン「誤爆した」

>>301
ありがとうございます。
メッセージがちゃんと出ました。

>>303
短絡評価ぇ…

基本的な事ですいません。
ActiveWorkbook.SaveAs Filename:=Cells(2, 36) & yyyy & "年" & mm & "月" & dd & "日" & ".xlsm"

セル内の文章 と日付でセーブする機能を盛り込んでいます。
実行時ファイル名が変わってエラー無く、VBAが動き続けているのですが、

saveするフォルダ内に該当のエクセルファイルそのものが見当たりません。
見かけ上の問題だけか？と思い、停止してフォルダを検索しましたがエクセルファイルはありませんでした。

ActiveWorkbook.SaveAs Filenameというのは、新しく名前を付けて保存なので、中身はともかく実行されたらエクセルファイルは生成されますよね？

すいません。自己解決しました。

指定フォルダにsaveする記述がズレていただけでした。

あなたのハゲにサクセスしたい

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉ ﾟ+.ﾟ━━━━!

Excel2019で、
.ActiveWorkbook.SaveAs FileName:=FilePass, FileFormat:=51

ってやると、

'Book1' の変更内容を保存しますか？
ってダイアログが出て保存できないね。
どうしたらいいだろう？お手上げです。

「はい」押したらいいんでないの

>>314
はいを押しても
'Book1' の変更内容を保存しますか？
って同じダイアログが出続けて保存できません。

じゃあいいえ押せば

>>315
Application.DisplayAlerts = False

そんなの出たっけ?
CSVだとしつこく聞いてきたような記憶があるが。

保存せず閉じる時に出るメッセージかな

>>313

「保存されたこと」にしてしまえば？

オブジェクト.Saved = True

間に何かのイベントが反応して、何も変更してないのに、変更したと見なされちゃってるとか?

揮発性関数を使ってるとファイルをオープンしただけで変更したと見なされる

CreateObject("Excel.Application") で Ｃ#からExcelを操作してます。
Excel2016までは正常にできてたけど、Excel2019になってこの症状が出ています。

>>316
いいえでも無限ループ

>>317
効果ありませんでした。

>>318
Excel2019で出るようになりました。

C#ってウソだろ?
VBAの構文しか見えないが。
今はそんなことになってるのか。

どうせC#のコード内でExcelを呼び出してるんだろうね。

>>323
savedは

参照設定見直し

競馬やる奴、毛根をハーゲットに取り込む方法教えます

自作データベースをエクセルでも管理できるように
簡易CSV形式（つまりカンマで区切っただけ）のテキスト出力できるようにしたんだけど
文字コードがUTF-8だと自作→エクセルなら大丈夫なんだが
エクセル→自作に戻すと文字化けする。
エクセルのCSVってShift_JISでしか出せないの？

UTF-8形式のテキストファイルに書き込む
http://officetanaka.net/excel/vba/file/file11.htm

あー最新版ならファイルメニューにあるんだな・・・
おれの2010だわ
ありがとう

>>326

効果なし。
タスクマネージャーを確認すると、Excel終了できないで残ってるし。
Excel2019ってキングソフト以下の糞になったのかな。

>>332
残ってるのは自分がちゃんと解放してないからですな…

ADO使う時、VBAだとExcel8.0も12.0もいけるのに、VBSだと8.0しか使えない。
12.0を使おうとすると、プロバイダがないだのISAMがないだの言われる。
多分、VBAだと参照設定でADO2.8とか6.1を選べるけど、
VBSはCreateObjectで、自由に選べないのが原因じゃないかと思うんだけど、
具体的にdll指定する方法とか無い?
え? Accessの何とかコンポーネント入れろって?
会社のPCだから、使う人の分申請するの面倒なんだよ。
え? そもそもVBSスレじゃないだろって?
あっちは何か変なのが住み着いてるじゃん。クリボーみたいなAA貼って。

>>334
CreateObjectにバージョンまで書くだけ

気持ち悪いよねVBSスレ
死んでくれないかな誰とは言わないけど

>>332
エスケープでキャンセルするは？

>>333
そんなのちゃんとやってますわ。
Excel2016 までは普通に動いてたんですよ。

>>337
なにやってもダメ。タスクマネジャーから強制終了するしかない。


てか今日はなぜか再現しなくなった。
Excelって何かアップデート入った？それともWindows10起因かな？

普通、PowerShell, VBScript などで、
Excel, IE などを起動すると、プロセスが残る

プロセスを終了させるには、名前で調べて、終了させないといけないから、
名前が一致すれば、無関係のプロセスも、終了させられてしまうw

>>334
VBS のスレ主のピッコロ大魔王は、すごい使い手だよ。
VBSで、5ch をスクレイピングしたりもするし

ただ、荒らしに粘着されてる。
コテハンは目立つから、どうしても粘着される

＞VBSで、5ch をスクレイピングしたりもする
スキルとしては下の下なんだが

あなたのハゲにサクセスしたい

でもまともなエディタないのにスクレイピングできるってちょっとすごいと思うわ

>>343
そう言われてみると確かに凄い！

>>335
CreateObject("ADODB.Connection.6.1")も、
CreateObject("new:{B691E011-1797-432E-907A-4D8C69339129}")もダメだったわ。
ActiveXコンポーネントを作成出来ませんって。
何がダメ?

もういい加減IE辞めたら？
あんたの会社セキュリティ意識なさ過ぎじゃない
大丈夫なの？表の仕事はしてない会社なのか

VBAを捨てられない組織がIEを捨てられるわけがないだろう

>>345
ADODB.? てのは無いんだっけ…

上司が無能

IE?
何の話?

>>335はADOの話だし、>>340のスクレイピングはIEとは言ってないよな。

それともスクレイピングはIEでしか出来ないレベルの人?

>>348
何それ?
どうしてもダメなら、最悪MSQuery使うつもりだけど、
シート名の指定が変な特殊文字で面倒臭いんだよな。

ActiveX

>>106　これと同じ人なのですが、レコード番号が不正と出ます。
セルの指定が上手くいってないのだろうとはわかりますが、どうしたらいいかわかりません
すごい初歩的なとことで躓いている気がするのですがご教授ねがいます

Sub Test_Open()

Dim a As Byte
Dim strFilePath As String
strFilePath = ActiveWorkbook.Path & "\data.bin"

Open strFilePath For Binary As #1

Dim i As Integer
For i = 1 To 6
Put #1, Cells(i, 1), a
Next i

Close #1

End Sub

ありがとうございます！　やっと一歩進めました

ただ最終的に、ある行の１〜数万行のデータをその数値のままバイナリデータに変換したいので
現在だと　17　なんかは　11　00　のように入力されてしまうことと
セルの　Cells(i, 1)　数値の方を変更すると型の不一致と出てくることは何が原因でしょうか
　小さすぎるかと思って　As Byte　を　As Long　にしてもダメでした

型の範囲よく判ってないならちゃんと調べた方がいいよ

あなたのハゲにサクセスしたい

型の範囲……調べてもそう難しくなさそうなのに何故か不一致の時は不一致に
ただ、いろいろ試していたら行の指定や範囲の指定はなんとかなったんですが、
やっぱり数値が16進に置き換わってしまいます
Dim a As Byte　をStringとかに変えると　まあ文字列になってしまうし

>>358
セルに入ってる数字は最大いくつ(何バイト分)なの？

お手間をかけます

セルの値は00〜FFの範囲で　セルの見た目そのままをバイナリに落とし込むことを目的としています

例えば書いていただいた　>>360　では
セルの値が　01　だと書き出したほうは　01　00　となるので　
後ろの　00　は省いて書き込みたいと考えています

>>361
それなら最初の宣言を
Dim a As Byte
に戻すだけ

ああ、出来ました！
i の範囲もLongにしたら数十万も対応できたので思っていたのが完成しました

長々と丁寧にお付き合いいただき、ありがとうございます！

>>363
エクセルの最後までいくとえらーでるんじゃね

実行するとめっちゃ重くなり、一度エラーがありましたが、
その時以外は、成功しています

話しは変わりますが、”Microsoft Office Desktop Apps” と表示されてる方がデスクトップ版じゃなくてストアアプリ版だって本当ですか？

一つのシート上の複数セルに関数が設定されています。

すべてのセルの関数の処理が一つ一つ処理されていき、最終的にすべてのセルの更新処理が終わったときに、あるマクロを動かしたいのですが、どうやればいいのでしょうか？

もはやExcel大喜利だな。

ここには北海道のスーパーハゲザーはこないのー？

>>367
セルの関数を指定のタイミングと順番で処理したいってこと？
関数の入ったシートのEnableCalculationプロパティをFalseにして、
計算したい関数の入ったRangeのCalculateメソッドを順次呼べば一個ずつ処理できる
それで最後の関数の計算が済んだ後にマクロを実行するとか

一応関数の計算終了時に動かすマクロはシートのCalculateイベントに書いても実行できるけど、
シート全体が対象だからCalculateメソッドが走るたびに発火するから使えないと思う

>>370
ありがとう
試してみます

自分で作った関数を引数変えて500セルくらいが呼び出す状態なんです。
んで、かなり遅くて、全部が終わるまで5分位待つことになるので、それではつかいものにならないので、高速化を図りたいのです。

そろそろ python とか考えた方がいいデータ量だな

>>371
そういうのは、いちいちワークシートとか数式を使わずに、全部配列で処理すれば5秒で終わるよ

そう思っていた時代がありました。
セルに数式とかダセェぜ、これからはSQL

だ、とか思って、DSUMのあまりの遅さに撃沈。

500セルに対するETL処理だからPowerQueryでインメモリ処理すれば良いのでは

>>375
DSUMなんて使うからだろw
というか、Dの付く奴は手軽だけど使わないのが基本じゃ無いの?

というか、普通は>>373だろ。

dsumよりサブクエリの方が速いのが納得いかん。
あんな遅いの、何であるんだ?
俺の使い方が下手なだけで、速く使える人もいるのか?

>>379
db関数はAccessから持ってきただけのなんちゃって関数だと思っている
実装後にブラッシュアップでも考えていたのかもしれないが、今となってはもう・・・

あなたのハゲにサクセスしたい

新聞配達しながらプログラミングのこと考えてたんだが
オブジェクト指向こそプログラミング的発想の1丁目1番地で
オブジェクト指向が解らないやつは3流のクズってことで結論出ました。

>>382
高評価

・プログラミングできるのに新聞配達？何も分かっていないだろうと思わせる
・コンビニ店員ではなく、新聞配達というというのも良いチョイス。考え事ができそうなイメージがある
・ただ惜しいのは「プログラミング的発想」。プログラミング的発想が原初のプログラミングを指すならさすがに手続き型になる
・恐らく元は別のコピペであることは容易に推測できる

コピペにしろ、なかなか良いチョイスではあるが、詰めが甘い

転記元の最終行を取得するところで1004エラーがでる

Dim fl As String
Dim WBo, Wbd As Workbook
Dim a As String
Dim ex As String
Dim syamei As String

Sub 変換ファイル選択()
syamei = Range("B3")
fl = Application.GetOpenFilename
ThisWorkbook.Worksheets(1).Range("C1") = fl
Set WBo = Workbooks.Open(fl)
MsgBox "出力先を選択"

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
a = .SelectedItems(1)
End With
With ThisWorkbook.Worksheets(1)
ex = a & "\" & .Range("B3") & "_" & Year(Now) & "_" & Month(Now) & ".xlsx"
.Range("C2") = ex
.Activate
End With
Set Wbd = Workbooks.Add
Wbd.SaveAs ex
ThisWorkbook.Worksheets(2).Activate
ActiveSheet.Copy Wbd.Worksheets(1)
ThisWorkbook.Worksheets(1).Activate
End Sub

Sub 変換処理()

Dim Wsd As Worksheet '請求書
Dim Wso As Worksheet '転記元
Dim i As Long 'ForNext用
Dim j As Long
Dim ko As Long '個数
Dim Kohani As Range
Dim fnkohani As Range
Set Wsd = Wbd.Worksheets(1)
Set Wso = WBo.Worksheets(1)
Const Dhin = 1
Const Dtan = 2
Const Dko = 3
Const Dkin = 4
'転記元定数
Const Ohin = 4
Const Otan = 3

Wsd.Activate
With Wso
Range("E3") = Year(Now) & "/" & Month(Now)
j = 7
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = syamei Then
MsgBox syamei
End If
Next i
End With
End Sub

for i = のところね、なんで？

>>384
もうちょっとテストしやすい形にしてくれ

>>384　最期から三行目ぐらいでエラー。原因は多分ファイルの構成かなんかだろう
>>385　エラーにならない

エラーになるファイルか、スクリーンショットでも貼ってくれ

>>386
たぶんこうじゃないかな
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

Excel VBA初心者です。
やりたいことに似ているサンプルを読み解きながら
勉強中です。
初歩的なことで申し訳ないのですが、ご教示いただければ
ありがたいです。
クローズメソッドの説明を
　https://www.tipsfound.com/vba/11006
読んででいたのですが、説明文で
　Call wb.Close(SaveChanges:=True) ' 変更を保存して閉じる
　Call wb.Close(SaveChanges:=False) ' 保存しないで閉じる
というのが出てきました。
Call と付いている意味がわからず、call について調べてみたの
ですが、プロシージャの呼び出しについての説明しか見つけられず
困っています。
どうぞよろしくお願いいたします。

　

>>389
Callは引数に指定したプロジージャに制御を渡して呼び出すVB6のステートメントで使用するキーワードだよ
CallキーワードはVBAの文法上省略可能
Callを省略しない場合、呼び出すステートメントに渡す引数__ argumentlistは括弧括り・カンマ区切りの形式にしないといけない

つまり以下の二つの命令はどちらもCallステートメントで、同じ動作・効果をする

wb.Close SaveChanges:=False

Call wb.Close(SaveChanges:=False)

エクセル以外はインストール出来ないって特殊会社にこき使われてる社畜は無視してその他の人はVBAなんて覚える価値は全くないから騙されるなよ
エクセルデータを読み込んで加工するなんて簡単な事

場合によりけりだろう
Excelの読み込みができる言語ならエクセルデータの加工が可能なのは事実だが、VBAが手軽なのは間違いない
今やPower Queryの操作もVBAで行えるから、VBAを呼び出し元にして複雑なデータ加工を高速で行うことも可能になってる

>>389
call つかうと引数の括弧が必須になるんだよ
使わないときは括弧つけるとエラー
そんで変数＝関数(引数)　みたいに返り値を取る場合も括弧が必須になる
つまりcall 使うと括弧有無の記述を統一できるんだね

VBAでのPower Query操作ってクソだよね
letからinまでのステップ全体がFormulaプロパティに長い文字列として収まってるだけ
vbaの貧弱な文字列操作で弄りたくない

>>391
>>392
まず、基本的に対象が違う。
Excel以外はExcelブックとの連携であり、Excelファイル操作が主題。

ExcelではExcelを開いた状態で、Excel上での作業を効率化するもの。
従って基本的に競合しない。

何故、Excelファイルが使われるかと言えば、Excel上で何らかの作業をする為であり、その作業が仕事に大きな意味を持つから。
その大きな意味によってExcelというアプリケーションが使用されている以上、VBAの優位性は動かない。

データの共有や統合が出来ないのがエクセルの欠点

できるけど、もう使わないだろう

あなたのハゲにサクセスしたい

>>390
>>393
わかりやすいご説明ありがとうございました。
もっと勉強して、みなさんの会話に混ざれるように
なりたいです。
職場でExcelのひな形をコピーして、顧客リストの顧客コードを
シートの指定のセルに書き込み、Book名にも付加して、名前を付けて
保存、というのを2000個くらい毎年度初めに作るのが若手のお仕事よ！
と仰せつかり、歴代の先輩方は手分けして「手作業で」やっていたと聞き、
「いやいやいや、何時代よ！」と勉強を始めました。

>>399
ここ煽りやアンチばっかだからもっとマシな場所に混ざりに行ったほうがいいよ

>>394
長くなるかどうかは書き方次第だろう
Let In構文はMの文法上必須ではないので、変数を極力使わずLispのような記法で短くまとめても良い

>>399
馬鹿しかいない職場か？

>>399
コーディング含めて1時間あれば出来そう

けど便利屋になるのだけは避けた方がいいぞ。
今後そういう処理は全部お願いってなって、雑用みたいな仕事ばっかり来るはめになる。
プログラマーは評価されにくく、いいように使われやすいから。

コードをしっかり管理して、そうならないようにな！

アホな職場上司もとい老害同僚からは
仕事減るから余計な事するな
と言われる可能性も

出る杭は

まじでそういう馬鹿上司いそうで困るな
しかも外のセミナーで自動化で人件費コストカットとか吹き込まれたら躊躇なくクビ切ってきそう

シート上に配置したコントロール（ボタンなど）の名前を調べたり変更したりするには
どうすればよいのでしょうか

シートにたくさん画像が貼り付けてあるので、それらを一斉に消去するために

Public Sub pics_delete(sname As String)
Dim delShape As Shape
For Each delShape In Worksheets(sname).Shapes
If (delShape.Name <> "btnDelete") Then
'delShape.name = btnDelete
delShape.Delete
End If
Next
End Sub

こんな感じのコードを書いているのですが、配置したボタンの名前をワークシート上で
参照／変更することが出来ません
仕方ないので、一旦全てのシェイプが消えたあと再度ボタンを配置して、上記プログラムの
コメント部分を切り替えています

プロパティを見ても、オブジェクトとしてワークシートが選択されてしまうようで、ボタンを
選択した状態でプロパティを見てもボタンの情報が参照できません

>>407
shapesは図形
コントロールはフォームコントロールかActiveXコントロールで扱い方違う

>>408
あ、すいません
プログラム上ではなくて、excelの画面上でボタンの名前を確認、変更したいのです
ちなみにボタンは「開発」タブの「コントロール」で「挿入」から選べるものを使ってます

>>409
だから、フォームコントロールとActiveXコントロールのどっちなの

>>410
失礼、フォームコントロールでした

>>411
名前を調べるなんて煩瑣な処理にしなくても、フォームコントロールだけを消さずに画像だけを消したいなら下のようにやれば良いのでは

Public Sub pics_delete(sname As String)
Dim delShape As Shape
For Each delShape In Worksheets(sname).Shapes
With delShape
If .Type <> msoFormControl Then
If .Type = msoPicture Then .Delete
End If
End With
Next delShape
End Sub

delShape.Typeで取得できる図形タイプを表す定数値がMsoShapeType.msoFormControlだったらフォームコントロール、MsoShapeType.msoPictureだったら画像だと判断するようにする
他にも消したいタイプの図形があるなら削除判定の箇所で任意のMsoShapeType列挙体に当てはまるかType属性を持っているかどうかを判定させたら良い

>>411
ホームタブ右端の検索と選択→オブジェクトの選択と表示
からシート内オブジェクトリスト出てくるけどこれが名前だったかな

終わりの鐘は鳴り響いた
https://ascii.jp/elem/000/004/000/4000725/

あとは新しいVBAウィルスが出てセキュリティ業者が騒いだらVBAは本当に終わりだな

>>414
それ前にも貼られたけど、今までのとの違いが分からんのだが

>>414
VBAでもできる範疇なら全く覚える気起こらん

覚えてないことはできるかどうかも判断できない

>>412
本来はこれがやりたかった、shapeのプロパティをちゃんと調べていなかったので
出来なかった処理でした
他にも似たような処理があるので、コード使わせていただきます

>>413
私の質問に対する回答は、これが求めていたものでした
開発タブしか見ていなかったんですが、ホームタブでいけたんですね

お二人共ありがとうございました

>>417
そうか？
俺はVBAの代わりにTypeScript使えるなら乗換えるよ

>>420
どの程度使えるかだな。
全く同じことができるなら乗り換えるだろうな。

まったく同じことしかできないなら乗り換える要素がない

全く同じことができるなら、新規に憶えるだけじゃん。
それはこっちの労力だけで済む。
今後移行していくとすればその程度大した問題じゃない。

今まで他言語では出来なかったり、不便だったからVBAを使っていたわけでね。

>>422
同じことが楽にできるなら乗り換える理由になるでしょ？