Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) ->画像>3枚

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
http://2chb.net/r/tech/1674875532/

---

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

1200万円の解析装置部署で導入
メーカーと商社の話だともし必要であれば
データ処理するソフトもオプションでありますけどおまけ程度の機能になります
VBAを色々いじれる人がいるならそっちの方がはるかに良いです

ソフト買う方向に進めたいのに反対勢力が、、いやお前が作ってくれるなら俺もソフトいらんよ

ここに出入りしてる人間なら率先して試作してみりゃいーじゃねーか
商社はメーカー同席だと言い辛いかも知らんが、同じ製品納めてる他の企業の事例を、こっそり耳打ちして
くれるかもだし　可能性は山ほどある　すぐ拒否・否定に逃げるのはオトコじゃ無い
チャレンジしてこそのサラリーマン　失敗したってダメ元　挑戦の無い企業に発展は無い

つか、どっかのExcelスレで同じ質問を目にした記憶があるような　デジャブか

https://www.capind.co.jp/product/detail.php?id=251
これなんか良さげだな 複数機器に対応してるのもいい
稟議上げて社長におねだりしてろ おいくら万円かは分からん

1000万以上の装置なら有限要素解析とかFFT解析とかなのか
VBAの知識だけではどうにもならない気がするけど

>>2の内容だと制御がしたいのではなくてデータ処理の方じゃないの？

データ処理なんよ
座標はマイナスもあるからなかなかめんどくさい
幾何公差やズレ量はvbaで作り込むとめちゃんこ便利なんだけどね
あと100年はvbaでいいぐらいめちゃんこしこしこ相性がいい

リンク先見てみればわかるけど、制御もデータ処理も両方だよ
接続方式も様々、データ送るのも受けるのもあれこれ　それが「無料」　らしい
じぶんトコの機器と繋いで試してみるには充分　受け取ったデータをどう加工するか
それがしやすいか、試行錯誤するにはもってこいじゃ？

すみません　質問です
C1にはrandom関数が入っています。B1にはC1のコピーしたものの値を貼り付けています。A1にはB1が0.6より大きければ◯小さければ✕が入るようにします。A1
を下にオートフィルすればB2にはC1を参照としてC1をコピーした値、A2にはA1と同じように◯✕が入るようにしたいです
よろしくお願いいたします

AとB列は全部同じ値になるだけじゃ

マクロが突然壊れた。
ある時、マクロの一覧が表示されなくなり、
セキュリティー(トラストセンター)をいじったら一時的に
治ったが、また表示されなくなり、今に限っては
マクロを動かすと全く違う動作をしたり、今まで正常に
何回も動かしてたマクロが突然エラーになって動かない。
ファイルが壊れたか？？？と思ったが、別のPCでそのファイル
正常に動作するんで、オフィス修復やったが治らず、
で、結局再インストしたらあっけなく治った。
プログラムが何かの拍子で壊れる、ということがあるらしい。

12だがやはり「マクロの登録」一覧からマクロが突然消える。
誰か対策教えてくれ。

どうせマクロに署名してないから起動時に無効化されてるってオチ

ストレージか？

>>12
随分前だけどバージョン違いのExcelでマクロを起動すると似たような状況になったことがあったな
複数人で使い回したりしてる？

以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか？


A出版 004
A出版 003
B出版 006
B出版 005
（本当は画像と同じように書きます）



単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか？

できます

>>17
後の流用を考えると、削除しないほうが良いんじゃない？

>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか？
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました

>>20
ごめん、表示用だと認識してませんでした

セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…

>>22
具体的な用途がわからないけど、文書内の表のセルにただ入力したいだけなら文字列で書き込めばいいんじゃないかな

Sub 文書内のセルに転記()

Dim str As String
str = Cells(1, 1).Value

Dim doc As Object, i As Long

Set doc = Documents.Open(ThisWorkbook.Path & "\文書1.docm")

doc.Tables(1).Cell(1, 1).Range.Text = str
End Sub

500行ずつ下へ移動するオシャレな方法があれば教えて
コードは簡単に書けるけどボタンをどうしようか悩んでいる。

リボンかクイックに置けばいいだけ

ボタンなんてダサい
ショートカットキーにしとけ

>>26
ショートカットキーでマクロ発動とかできるの？

ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく

質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか？
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか？

よくわからないけど
Range("A1") と書くのと Cells(1, "A") と書くのは同じです

>>30
mjsk
初めて知った（今頃）

>>31
rangeオブジェクトのリファレンスに一度目を通しておくと良いよ

助けて下さい
txtに変換して
そのtxtを別のアプリで
読み込もうとしています

Application.CutCopyMode = False
Dim book1 As Workbook
Sheets("label").Select

Application.DisplayAlerts = False

Set book1 = Workbooks("◯◯◯.xlsm")

book1.SaveAs Filename:="C:\Users\aaaaa\Desktop\片山\label.txt", _
FileFormat:=xlCurrentPlatformText

Application.DisplayAlerts = False

Range("B3").Select

Sheets("入力チェック表").Select

Range("H4").Select

Application.Quit

ThisWorkbook.Close

ActiveWorkbook.Close SaveChanges:=False

End Sub

シートlabelをtxtに変換して
別のアプリで読み込もうと思います

ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが

最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為？)

エクセル終了しない方法は
ありますか？

>>34
Application.quitしてるからExcelが終了するのは当然では

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

>>34
Application.quit
を削除したのですが
エクセルは終了しませんが
book？が終了します

>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ

ああ、Excel側で読み取り専用で開き直すって手があるな

>>37
アドバイスありがとうございます
閉じるしか
無理ですか...

助けてで始まる質問をする奴は○○って法則

ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ

何がしたいかわからん

日付（2024/01/01）のセルをVBAのRange("A1").Valueなどで取得すると、勝手に2024/01/01 (月)って曜日の文字列が追加されます。
曜日なしで取得する方法をご存じの方いましたら教えてください。
曜日がついているせいでDateとして扱えず困っています。
Dim d As Date
d = CDate(Range("A1").Value) '2024/01/01 (月)が入ってるため
これでエラーが出ます。

2024/01/01 01:00:00のように時間が入っている場合は2024/01/01 (月) 01:00:00になります。
NumberFormatLocalでフォーマットを指定してもダメでした。
取得するセルの書式設定は日付でユーザー定義ではないです。
最終手段の文字列を加工するのはなしでお願いします。

>>43
Dim d As Date
d = CDate(DATEVALUE(Range("A1").Value))

>>43
試してみたけど、この3行はどれもエラーにならず同じ結果になった
d = CDate(Range("A1").Value)
d = Range("A1").Value
d = Range("A1")

セルA1の内容は本当にシリアル値か？
OSやOfficeは日本語版か？
ロケールは日本になってるか？

シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄
A1セルの書式を標準に変えたらどんな表示になるか確認

>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する？

すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします

これでお願いいたします

質問とは

ボタンを配置して押すごとに一週間分作成という風にしたいです。

>>49
誠に勝手ながらコードを教えて欲しいです

>>52
ありがとうございます。大変申し訳ありません。

>>52
すみません。これでも大丈夫ですがマクロ1回実行するごとに７日分つくりたいです。わがまますみません。

>>55
ありがとうございます！助かりました

ワークシート上で使うつもりの関数についてですが
Function で関数を作る場合に
ワークシートのsum関数のように、「開始セル：終端セル」で範囲指定したものを
引数として渡すにはどのように書けばいいでしょうか？

Fuction Nmame（ここにどう書けば・・・）　as　Ingteger

という意味です

>>58
ありがとうございます
様子がわかりました

WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。

たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ

WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな
SequenceとXlookupはたまに使う

>>62
そのままベタで書いてない？
Set wf = WorksheetFunction
n = wf.Vlookup(以下略
みたいにすれば式が長くて読みづらいのはだいぶ改善されるけど

object変数使うのとwith句どっちにするか悩む

まーあまり使う機会が無いからね
今パッと思いつくのでも銀行丸めでない四捨五入くらい

wFuncと書くかな王道のキャメルネームってヤツで

functionの省略形はFn
キートップの表記もそうなってるし

キートップでいうならほとんどのキーボードはFだよ
F1～F12のF

なるほど、fnを変数名もありだね
短くて分かりやすいのがベスト

>>68
そのパターンだと、続く数字がないと、F だけじゃ意味を認識できにくくないかな？
VBAと同じ祖先のN88-BASICにDEF FN()っていうステートメントがあったぐらいだし、Fnあたりが無難じゃないかなあと

変数名悩むよいつも

wFuckでいいんじゃね

それもありだね
何となく意味が分かる変数名がベスト

20種類前後の機材があり、1部屋につき5～10種使っていて、全部で50部屋程度ある
部屋毎に以下の内容を記載したシートを作らないといけない(機材名　サイズ　台数)というのが定期的にあり
現在は(部屋番号a　部屋名)と(部屋番号b　機材名　サイズ　台数)の一覧シートを作って
For 部屋番号=2 to 部屋番号bmax
部屋番号a=部屋番号b
*転記
といった形のマクロを使用しているのですが
いちいち機材名等をコピペするのが手前なので(機材名　サイズ　台数　部屋番号b1 b2…)のシートを作って部屋番号a=b1*転記、a=b2*転記みたいにしたいです
ただ、私の知識だと判定と転記の行を増やすくらいしか思い付かず、スッキリとした形にできるのでしょうか

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

雑魚解決

B1:D1が全てTRUEの時、◯を違う時×を表示するという具合の関数を組みたいのですが何を使えばいいのでしょうか？

lookup
vlookup

=IF(COUNTIF(B1:D1,TRUE)=3,”◯”,”×”)

=IF(AND(B1:D1),"○","×")

VBAスレだからworksheetfunctionって明示しないと

= Mid("◯×", Range("B1") * Range("C1") * Range("D1") + 2, 1)

>>77
頭を使ったほうが良いと思う

ここに来るのは、頭だけは絶対に使わない人達

ポコポコヘッドを覚えてから質問して来い？

>>84
よう馬鹿！

うんこ

カレー