Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1 / 3831 ﾍﾟｰｼﾞ


	【82281】Selenium Basic VBA　でファイルダウンロ...

fujifuji

- 24/4/2(火) 17:48 -


	引用なし

	パスワード

elenium Basic VBAの初心者です。
chromeのプロファイルを指定したら
ファイルのダウンロード先が変更できないのですが
なにかいい方法はございますか

Dim driver As New Selenium.WebDriver
Dim myBy As New By
Dim siteURL As String
Dim elm As Selenium.WebElement
Dim sKey As New Selenium.Keys

・ツリー全体表示


	【82280】Re:ダブルコーテーション以外の空白は代...

JK - 24/3/25(月) 23:33 -


	引用なし

	パスワード

？？

Range("A3").Value = Empty

・ツリー全体表示


	【82279】Re:ダブルコーテーション以外の空白は代...

shun - 24/3/11(月) 13:57 -


	引用なし

	パスワード

ご回答ありがとうございます。 Find("*", , xlFormulas).Row なるほどです。ありがとうございました。

・ツリー全体表示


	【82278】Re:ダブルコーテーション以外の空白は代...

マナ - 24/3/7(木) 19:33 -


	引用なし

	パスワード

▼shun さん：

>""を埋めたセルは0の空文字列なのでCTRL+矢印での空白検索の対象外になります。

Sub test()
　　Worksheets.Add
　　Range("A3").Value = ""
　　Range("A4").Formula = "="""""
　　Range("A5").Value = "a5"

　　Range("A1").End(xlDown).Select

　　MsgBox Columns("A").Find("*", , xlFormulas).Row
　　MsgBox Columns("A").Find("*", , xlValues).Row
End Sub

・ツリー全体表示


	【82277】ダブルコーテーション以外の空白は代入で...

shun - 24/3/7(木) 17:21 -


	引用なし

	パスワード

IFERROR(Vlookup(A1,シート!A:A,1,0),"")などで、エラーに空白を埋めます。 ""を埋めたセルは0の空文字列なのでCTRL+矢印での空白検索の対象外になります。 VBAではEnd(xlDown).Rowなどが正しく動かず、行列数が把握ができません。 accessのようにnullのような空白は埋められますでしょうか。 IFERROR(Vlookup(A1,シート!A:A,1,0),null)的な。よろしくお願いします。

・ツリー全体表示


	【82276】シートの保護

ちるちる - 24/3/5(火) 10:12 -


	引用なし

	パスワード

VBA初心者です。詳しい方ご教授願います。

社員全員（20名）の日報を一つのブックで管理したいため、各シートにクローズボタンを押すと表が非表示になり、オープンボタンを押すとパスワードを入力するボックスが表示され、入力後表が再表示されるように設定したいです。

作成したのは以下のとおりです。
クローズボタンを押すと表が非表示になり、シートの保護を行う。

オープンボタンを押すとパスワード入力ボックスを表示し、表が再表示されるようにしたいです。
よろしくお願いします。

Sub ボタン3_Click()

End Sub
Sub クローズ()
'
' クローズ Macro
'

'
　　Columns("A:K").Select
　　Selection.EntireColumn.Hidden = True
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Macro9()
'
' Macro9 Macro
'

'
　　ActiveSheet.Unprotect
　　Selection.EntireColumn.Hidden = False
End Sub

・ツリー全体表示


	【82274】Re:文字列から計算する数式について

マナ - 24/2/22(木) 22:41 -


	引用なし

	パスワード

▼もっちゃんさん：

考え方だけ。
想定される全パターンの置換を追加してください。

Function conv_cm3(f As String) As Double
　　f = Replace(f, "mm", "*0.1^3")
　　f = Replace(f, "inches", "*2.54^3")
　　f = Replace(f, "x", "*")
　　 conv_cm3 = Evaluate(f)
End Function

・ツリー全体表示


	【82273】文字列から計算する数式について

もっちゃん

- 24/2/21(水) 16:30 -


	引用なし

	パスワード

VBAに初めて手を出そうとしています。
この様な動作をさせたいと考えていますが可能でしょうか？

コピーされた文字列をセルに貼り付けてcm3に変換して計算

330 * 250 * 24mm

を入力すると隣のセルに1980cm3と表示したいのです。

また違うセルでも構わないのですが同様に

9.84 x 1.97 x 0.79 inches

と貼り付けした場合にも計算して隣のセルに答えをcm3で表示させたいのです。
VBAを使わなくても可能な方法があるのならそれもOKです。
よろしくお願い致します。

・ツリー全体表示


	【82272】やっぱ変わってなかった

Jaka - 24/2/11(日) 19:22 -


	引用なし

	パスワード

なんか変わってなかったみたい残念

・ツリー全体表示


	【82271】ありがとうございました。

Jaka - 24/2/11(日) 19:18 -


	引用なし

	パスワード

おおすげー
目安箱とかのボタンを押してもESETがはんのうしなくなった
ありがとうございました
これで今まで蓄積したエクセル、VBAコードをなくしましたが
これでとりあえず今のところ何とかなるかぁ？？？？

所でWindows11ってクソですね。
今度のThinkpad L　あれなんだっけ多分L560
第6世代のi5
500MのHDDをSSDに丸コピーして使ってますが
起動時間が、9分以上だったのが、今のところ1分以内になったことだけが
いいと思った
操作性は悪いし、何かやるにも輪ドライブとかに1度つなげないとダメとか
いろいろ不便
なんかMSのアカウント取りそこなったみたいでいろいろはじかれます
テンキー付きのノートパソキー位置と感覚がいまいちなじめないです。
今のところテンキーなんぞつけなきゃよかったかもと思ってます。
windowd7ときと同じことするのに工程が多くなった
では

・ツリー全体表示


	【82270】谷さんへ

Jaka - 24/1/31(水) 17:53 -


	引用なし

	パスワード

こんにちはひさしぶりです
Excel VBA質問箱 IV 内のホームボタンやら他
ホームから各ボタンを押すと、ESETが反応してしまい
閲覧できません。

Windows7の時はそれなりに閲覧できるときもあったんですが
Windows7のHDDが壊れてしまい、中古のWindows11のThinkpadL560だと
閲覧できません。

こんな感じに

このWebページには、感染したデバイスへのリモートアクセスを可能にしたり、デバイスから機密データを漏洩させたり、標的となったデバイスに害を与えたりする可能性がある危険なコンテンツが含まれる場合があります。
脅威: JS/Adware.Agent.DA アプリケーション

何とかならないもんでしょうか？

・ツリー全体表示


	【82269】Dior スーパーコピー

vogcopy.net - 24/1/29(月) 16:27 -


	引用なし

	パスワード

ディオール(DIOR)の2023年春メンズカプセルコレクションから新作スニーカーやジャケットが登場。vogcopy.net/brand-2-c0.html　Dior スーパーコピー 2023年1月6日(金)から1月22日(日)まで開催される東京・表参道「MICO JINGUMAE」の期間限定ストアで発売される。

ディオールを代表する「サドル(SADDLE)」バッグの新作は、vogcopycelinebad.on.omisenomikata.jp/ ERLのシグネチャーであるウェーブモチーフをキルティングで落とし込んだ。長さの調節が可能なブランドネーム入りのストラップが付属しており、ショルダーバッグでもクロスボディとしても使用することができる。

・ツリー全体表示


	【82268】Re:フォルダ内の画像の余白を削除

Trim - 24/1/25(木) 8:45 -


	引用なし

	パスワード

マナ様

ご返信ありがとうございます。
参考URLありがとうございます。

Powershellでも出来そうですね
フリーソフトが使えない環境ですので
手動でやっているのですが数が多いと
時間が掛かるのでVBAでできないものかと
考えておりました。

難しそうですねー

・ツリー全体表示


	【82267】Re:フォルダ内の画像の余白を削除

マナ - 24/1/24(水) 20:09 -


	引用なし

	パスワード

▼Trim さん：

こちらが参考にならないでしょうか。
ht tps://www.excel.studio-kazu.jp/kw/20221106151753.html
ht tps://www.excel.studio-kazu.jp/kw/20201225143843.html

・ツリー全体表示


	【82266】フォルダ内の画像の余白を削除

Trim - 24/1/24(水) 16:51 -


	引用なし

	パスワード

フォルダ内に幅3507ピクセル、高さ2480の画像ファイルが複数あります。

ペイントを開き、すべて選択した状態で
左90、上220移動する。
選択を解除して、下320、右190をカットする。
処理完了後、上書き保存。

上記の処理を行いたいのですが可能でしょうか？

コードを提示して頂けますと幸いです。
宜しくお願い致します。

・ツリー全体表示


	【82265】Re:別シートから一致する項目をすべて引...

迷える羊 - 24/1/24(水) 12:59 -


	引用なし

	パスワード

▼マナさん：
無事動かすことができました！！
ありがとうございました！

・ツリー全体表示


	【82264】Re:別シートから一致する項目をすべて引...

マナ - 24/1/23(火) 20:05 -


	引用なし

	パスワード

▼迷える羊さん：

Sub test3()
　　Dim ws1 As Worksheet, ws2 As Worksheet
　　Dim r1 As Range, r2 As Range
　　Dim ws As Worksheet
　　Dim r3 As Range, r4 As Range
　　Dim c As Range, t As Range

　　Set ws1 = Sheets("Sheet1")
　　Set ws2 = Sheets("Sheet2")
　　Set r1 = ws1.Range("A13")
　　Set r2 = Union(ws2.Columns("H"), ws2.Columns("L"))
　　
　　Set ws = Worksheets.Add
　　Set r3 = ws.Range("A1")
　　Set r4 = ws.Range("C1")
　　Range(r1, r1.End(xlDown)).Copy r3
　　r2.Copy r4
　　
　　Set c = ws.Range("F1:F2")
　　 c(2).Formula = "=countif(A:A,D2)>0"
　　Set t = ws.Range("H1")
　　r4.CurrentRegion.AdvancedFilter xlFilterCopy, c, t
　　Set t = t.CurrentRegion
　　
　　With ws.Sort
　　　　.SortFields.Clear
　　　　.SortFields.Add2 _
　　　　　　　　Key:=t.Columns(2), _
　　　　　　　　CustomOrder:=WorksheetFunction.TextJoin(",", True, r3.CurrentRegion)
　　　　.SetRange t
　　　　.Header = xlYes
　　　　.Apply
　　End With

　　t.Columns(1).Copy r1.Offset(, 1)
　　
　　Application.DisplayAlerts = False
　　ws.Delete
　　Application.DisplayAlerts = True
　　Application.Goto r1, True
　　　　
End Sub

・ツリー全体表示


	【82263】Re:別シートから一致する項目をすべて引...

迷える羊 - 24/1/23(火) 17:10 -


	引用なし

	パスワード

▼マナさん：
ありがとうございます！
動きました！
が、大変申し訳ございません、
私が省略したばかりに。

それぞれのシートには項目名があり、
頂いたコードですと、それを消してしまいまして。
＞r.AdvancedFilter xlFilterCopy, , ws1.Cells(2)
ここが引っかかって来てるのかなとはあたりをつけたものの。

ので、以下正確にやりたいことを記載し直させてください！
散々コード記載頂いておりますのに申し訳ございません。
[sheet1]13行目～　　[sheet2]1行目～
名前(A列)　#(B列) 　#(H列)　名前(L列)
いちご　　　　　　　123　　いちご
みかん　　　　　　　234　　りんご
りんご　　　　　　　345　　みかん
ぶどう　　　　　　　456　　いちご
　　　　　　　　　　567　　りんご
　　　　　　　　　　678　　りんご

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

・ツリー全体表示


	【82262】Re:シートの中から必要なセルを複数取り...

マナ - 24/1/22(月) 23:40 -


	引用なし

	パスワード

▼かずこさん：

どんな並び替えなのか全くわかりません。
とりあえず、たたき台として。

Sub test()
　　Dim srtl As Object
　　Dim c As Range, k As String
　　Dim i As Long, r As Range, n As Long
　　
　　Set srtl = CreateObject("system.collections.sortedlist")
　　
　　For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
　　　　If c.Value Like "?##-##-#" Then
　　　　　　k = c.Value
　　　　　　Set srtl(k) = c
　　　　Else
　　　　　　Set srtl(k) = Union(srtl(k), c)
　　　　End If
　　Next
　　
　　Worksheets.Add
　　For i = 0 To srtl.Count - 1
　　　　Set r = srtl.getbyindex(i)
　　　　If r.Count > 1 Then
　　　　　　Cells(1).Offset(n).Resize(r.Count).Value = r.Value
　　　　　　n = n + r.Count
　　　　End If
　　Next
　　　　
End Sub

・ツリー全体表示


	【82261】Re:シートの中から必要なセルを複数取り...

かずこ - 24/1/22(月) 23:13 -


	引用なし

	パスワード

▼マナさん：
>▼かずこさん：
>
>＞別シートに張り付けて並び替える
>
>並び替えのルールを教えてください

ご返信ありがとうございます。

並び替えが少し複雑で、説明が伝わりづらかったら申し訳ありません。
また、もし不可能でしたら全然構いません。

① レーン番号の頭3桁と、中2桁が一致しているものは同じ列にまとめて、下1桁の数字で下から上に昇順で並び替えます。(データ同士の間の空白は不要です)

② ①で作成したセルデータをひとまとまりとし、そこから又並び替えをします。
　レーン番号の頭3桁が同じ①は同じ行にまとめ、今度はレーン番号の真ん中2桁で左から昇順で並び替え　　ます。(間の空白は不要です)

③ ②で作成したひとかたまりを並び替えます。
　シートの上から下に、レーン番号の頭3桁を昇順で並び替えます。
　(左詰で、間に空白行をお願いします。)

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

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1 / 3831 ﾍﾟｰｼﾞ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free