X



Excel VBA 質問スレ Part80(ワッチョイあり)
0001デフォルトの名無しさん (スップ Sd92-oKFl)
垢版 |
2023/11/24(金) 20:41:50.46ID:hbrpz6MLd
!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(ワッチョイあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
0012デフォルトの名無しさん (ワッチョイ 63bf-pDLy)
垢版 |
2023/12/23(土) 19:02:50.72ID:QzF0pH9f0
マクロが突然壊れた。
ある時、マクロの一覧が表示されなくなり、
セキュリティー(トラストセンター)をいじったら一時的に
治ったが、また表示されなくなり、今に限っては
マクロを動かすと全く違う動作をしたり、今まで正常に
何回も動かしてたマクロが突然エラーになって動かない。
ファイルが壊れたか???と思ったが、別のPCでそのファイル
正常に動作するんで、オフィス修復やったが治らず、
で、結局再インストしたらあっけなく治った。
プログラムが何かの拍子で壊れる、ということがあるらしい。
0013デフォルトの名無しさん (ワッチョイ 63bf-pDLy)
垢版 |
2023/12/23(土) 21:28:56.85ID:QzF0pH9f0
12だがやはり「マクロの登録」一覧からマクロが突然消える。
誰か対策教えてくれ。
0015デフォルトの名無しさん (ワッチョイ 6301-cfY7)
垢版 |
2023/12/23(土) 22:27:46.32ID:8ng/MRqb0
ストレージか?
0017デフォルトの名無しさん (ワッチョイ ebfa-/Nx8)
垢版 |
2024/02/29(木) 03:28:34.72ID:fThkXDoh0
以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか?


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

https://i.imgur.com/1vIYIHQ.jpg

単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか?
0020デフォルトの名無しさん (スププ Sdea-/Nx8)
垢版 |
2024/02/29(木) 14:12:43.39ID:JwatrK+sd
>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか?
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました
0023デフォルトの名無しさん (ワッチョイ 9f45-zqCT)
垢版 |
2024/03/05(火) 15:19:55.05ID:lrAkKyth0
>>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
0025デフォルトの名無しさん (ワッチョイ cb01-fRaX)
垢版 |
2024/03/05(火) 22:42:06.84ID:uv6Tn7vf0
リボンかクイックに置けばいいだけ
0029デフォルトの名無しさん (ワッチョイ 7b0c-lv6g)
垢版 |
2024/03/22(金) 23:46:16.21ID:4cmyPG190
質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか?
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか?
0031デフォルトの名無しさん (ワッチョイ d901-8/Mv)
垢版 |
2024/03/23(土) 09:27:28.74ID:Y5NpvLBG0
>>30
mjsk
初めて知った(今頃)
0033デフォルトの名無しさん (ワッチョイ 53dd-sTEQ)
垢版 |
2024/03/23(土) 13:55:04.13ID:ulv10UCb0
助けて下さい
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
0034デフォルトの名無しさん (ワッチョイ 53dd-sTEQ)
垢版 |
2024/03/23(土) 14:01:19.14ID:ulv10UCb0
シートlabelをtxtに変換して
別のアプリで読み込もうと思います

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

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

エクセル終了しない方法は
ありますか?
0040デフォルトの名無しさん (ワッチョイ 8b8e-adAD)
垢版 |
2024/03/23(土) 22:42:53.35ID:ULmGYrNT0
助けてで始まる質問をする奴は○○って法則
0042デフォルトの名無しさん (ワッチョイ 75f2-FSV6)
垢版 |
2024/03/26(火) 12:10:47.06ID:qhsI8dwj0
何がしたいかわからん
0043デフォルトの名無しさん (ワッチョイ 62ad-aQbW)
垢版 |
2024/04/08(月) 04:42:24.97ID:1vwt4prT0
日付(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でフォーマットを指定してもダメでした。
取得するセルの書式設定は日付でユーザー定義ではないです。
最終手段の文字列を加工するのはなしでお願いします。
0045デフォルトの名無しさん (ワッチョイ 43ce-Ky5X)
垢版 |
2024/04/08(月) 14:05:35.40ID:nl9i5mBy0
>>43
試してみたけど、この3行はどれもエラーにならず同じ結果になった
d = CDate(Range("A1").Value)
d = Range("A1").Value
d = Range("A1")

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

シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄
A1セルの書式を標準に変えたらどんな表示になるか確認
0046デフォルトの名無しさん (ワッチョイ 36f9-zSwZ)
垢版 |
2024/04/08(月) 14:31:02.66ID:bhILccJZ0
>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する?
0047デフォルトの名無しさん (ワンミングク MM92-Svx8)
垢版 |
2024/04/09(火) 13:20:50.97ID:CNAyRCwJM
すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします
0052デフォルトの名無しさん (ブーイモ MM02-Ky5X)
垢版 |
2024/04/09(火) 14:44:25.19ID:EBugvdEwM
>>47
Sub 全自動で表を作るMacro1()
  Dim da As Date
  da = "1/1" 'この日からスタート
  ro = 2
  For we = 1 To 52 '52週間分作る
    Cells(ro, 3).Resize(1, 3) = Array("a", "b", "c")
    For lo = 1 To 7
      Cells(ro + lo, 2) = da
      da = da + 1
    Next
    Set ra = Cells(ro, 2).Resize(8, 4)
    ra.Borders(xlEdgeLeft).LineStyle = xlContinuous
    ra.Borders(xlEdgeLeft).Weight = xlMedium
    ra.Borders(xlEdgeRight).LineStyle = xlContinuous
    ra.Borders(xlEdgeRight).Weight = xlMedium
    ra.Borders(xlEdgeTop).LineStyle = xlContinuous
    ra.Borders(xlEdgeTop).Weight = xlMedium
    ra.Borders(xlEdgeBottom).LineStyle = xlContinuous
    ra.Borders(xlEdgeBottom).Weight = xlMedium
    ra.Borders(xlInsideVertical).LineStyle = xlContinuous
    ra.Borders(xlInsideVertical).Weight = xlMedium
    ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous
    ra.Borders(xlInsideHorizontal).Weight = xlMedium
    ro = ro + 8
  Next
  Range("B:B").Font.Name = "MS 明朝"
  Range("C:E").Font.Name = "MS ゴシック"
  Range("B:E").Font.Bold = True
  Range("B:B").NumberFormatLocal = "m月d日 (aaa)"
End Sub
0055デフォルトの名無しさん (ワッチョイ 43ce-Ky5X)
垢版 |
2024/04/09(火) 17:25:50.64ID:GvF1xxBu0
>>54
Sub 一週間ずつコピペ追加Macro1()
  ro = Cells(Rows.Count, 2).End(xlUp).Row
  Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
  For Each c In Cells(ro + 2, 2).Resize(7, 1)
    c.Value = c + 7
  Next
  Columns("B").AutoFit
End Sub
0057デフォルトの名無しさん (ワッチョイ 472d-gQNF)
垢版 |
2024/05/14(火) 11:08:08.44ID:4ur2uort0
ワークシート上で使うつもりの関数についてですが
Function で関数を作る場合に
ワークシートのsum関数のように、「開始セル:終端セル」で範囲指定したものを
引数として渡すにはどのように書けばいいでしょうか?

Fuction Nmame(ここにどう書けば・・・) as Ingteger

という意味です
レスを投稿する


ニューススポーツなんでも実況