Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (99ﾚｽ)
上下前次1-新
10: デフォルトの名無しさん (ﾜｯﾁｮｲ 43fc-BjwC) [sage] 2023/12/23(土) 11:24:28.66 ID:0DKgSd0V0(1) AAS
すみません 質問です
C1にはrandom関数が入っています。B1にはC1のコピーしたものの値を貼り付けています。A1にはB1が0.6より大きければ◯小さければ✕が入るようにします。A1
を下にオートフィルすればB2にはC1を参照としてC1をコピーした値、A2にはA1と同じように◯✕が入るようにしたいです
よろしくお願いいたします
画像ﾘﾝｸ
11: デフォルトの名無しさん (ﾜｯﾁｮｲ a3b5-pDLy) [] 2023/12/23(土) 15:04:46.53 ID:Gwk7x+r/0(1) AAS
AとB列は全部同じ値になるだけじゃ
12(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 63bf-pDLy) [] 2023/12/23(土) 19:02:50.72 ID:QzF0pH9f0(1/2) AAS
マクロが突然壊れた。
ある時、マクロの一覧が表示されなくなり、
セキュリティー(トラストセンター)をいじったら一時的に
治ったが、また表示されなくなり、今に限っては
マクロを動かすと全く違う動作をしたり、今まで正常に
何回も動かしてたマクロが突然エラーになって動かない。
ファイルが壊れたか？？？と思ったが、別のPCでそのファイル
正常に動作するんで、オフィス修復やったが治らず、
で、結局再インストしたらあっけなく治った。
プログラムが何かの拍子で壊れる、ということがあるらしい。
13: デフォルトの名無しさん (ﾜｯﾁｮｲ 63bf-pDLy) [] 2023/12/23(土) 21:28:56.85 ID:QzF0pH9f0(2/2) AAS
12だがやはり「マクロの登録」一覧からマクロが突然消える。
誰か対策教えてくれ。
14: デフォルトの名無しさん (ｽｯﾌﾟ Sd1f-8PpB) [sage] 2023/12/23(土) 21:55:07.93 ID:wXkv6mGDd(1) AAS
どうせマクロに署名してないから起動時に無効化されてるってオチ
15: デフォルトの名無しさん (ﾜｯﾁｮｲ 6301-cfY7) [] 2023/12/23(土) 22:27:46.32 ID:8ng/MRqb0(1) AAS
ストレージか？
16: デフォルトの名無しさん (ﾜｯﾁｮｲ 03b7-IGPl) [sage] 2023/12/24(日) 08:57:28.13 ID:emWydGj70(1) AAS
>>12
随分前だけどバージョン違いのExcelでマクロを起動すると似たような状況になったことがあったな
複数人で使い回したりしてる？
17(1): デフォルトの名無しさん (ﾜｯﾁｮｲ ebfa-/Nx8) [sage] 2024/02/29(木) 03:28:34.72 ID:fThkXDoh0(1) AAS
以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか？
A出版 004
A出版 003
B出版 006
B出版 005
（本当は画像と同じように書きます）
画像ﾘﾝｸ
単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか？
18: デフォルトの名無しさん (ｽｯﾌﾟ Sd8a-9+AH) [sage] 2024/02/29(木) 03:34:27.60 ID:Abbi1OW1d(1) AAS
できます
19(1): デフォルトの名無しさん (ﾜｯﾁｮｲ ca77-DUIk) [sage] 2024/02/29(木) 09:37:23.42 ID:VmbR4Tf/0(1/2) AAS
>>17
後の流用を考えると、削除しないほうが良いんじゃない？
20(1): デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdea-/Nx8) [sage] 2024/02/29(木) 14:12:43.39 ID:JwatrK+sd(1) AAS
>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか？
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました
21: デフォルトの名無しさん (ﾜｯﾁｮｲ ca77-DUIk) [sage] 2024/02/29(木) 14:38:52.61 ID:VmbR4Tf/0(2/2) AAS
>>20
ごめん、表示用だと認識してませんでした
22(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 1b56-AA/x) [sage] 2024/03/03(日) 09:38:35.96 ID:nYZbKW3u0(1) AAS
セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…
23: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f45-zqCT) [sage] 2024/03/05(火) 15:19:55.05 ID:lrAkKyth0(1) AAS
>>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
24: デフォルトの名無しさん (ﾜｯﾁｮｲ 7b6e-0WZ8) [sage] 2024/03/05(火) 21:04:29.79 ID:vpqODFup0(1) AAS
500行ずつ下へ移動するオシャレな方法があれば教えて
コードは簡単に書けるけどボタンをどうしようか悩んでいる。
25: デフォルトの名無しさん (ﾜｯﾁｮｲ cb01-fRaX) [] 2024/03/05(火) 22:42:06.84 ID:uv6Tn7vf0(1) AAS
リボンかクイックに置けばいいだけ
26(1): デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-ZLJX) [sage] 2024/03/05(火) 23:06:34.48 ID:1MXf4VgDd(1) AAS
ボタンなんてダサい
ショートカットキーにしとけ
27: デフォルトの名無しさん (ﾜｯﾁｮｲ 4bfa-sqC9) [sage] 2024/03/06(水) 00:55:19.48 ID:g0HJYNda0(1) AAS
>>26
ショートカットキーでマクロ発動とかできるの？
28: デフォルトの名無しさん (ﾜｯﾁｮｲ cb41-zqCT) [sage] 2024/03/06(水) 21:07:09.63 ID:J53jsheD0(1) AAS
ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく
29: デフォルトの名無しさん (ﾜｯﾁｮｲ 7b0c-lv6g) [sage] 2024/03/22(金) 23:46:16.21 ID:4cmyPG190(1) AAS
質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか？
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか？
30(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 591c-/oLk) [sage] 2024/03/23(土) 01:40:54.15 ID:WFks+Yvw0(1) AAS
よくわからないけど
Range("A1") と書くのと Cells(1, "A") と書くのは同じです
31(1): デフォルトの名無しさん (ﾜｯﾁｮｲ d901-8/Mv) [] 2024/03/23(土) 09:27:28.74 ID:Y5NpvLBG0(1) AAS
>>30
mjsk
初めて知った（今頃）
32: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 09:36:59.52 ID:mhs1yCGmd(1) AAS
>>31
rangeオブジェクトのリファレンスに一度目を通しておくと良いよ
33: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 13:55:04.13 ID:ulv10UCb0(1/4) AAS
助けて下さい
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
34(2): デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 14:01:19.14 ID:ulv10UCb0(2/4) AAS
シートlabelをtxtに変換して
別のアプリで読み込もうと思います
ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが
最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為？)
エクセル終了しない方法は
ありますか？
上下前次1-新書関写板覧索設栞歴
あと 65 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.019s