[過去ﾛｸﾞ]
Excel総合相談所 141 (1002ﾚｽ)
Excel総合相談所 141 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
43: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/09(金) 23:42:48 >>42 後半の方のCellsとかRangeに.が付いてないのは原因としてあるかもしれない それと、エラーの内容を書いてくれ 恐らくSetしたnoRngがNothingだからかと思うが http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/43
44: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/09(金) 23:47:07 >>42 まさか、こういうこと？ 誤 Set namelRng = Range("i15").End(xlDown) 正 Set namelRng = .Range("i15").End(xlDown) http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/44
45: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/09(金) 23:59:57 >>43 実行時エラー’1004’ アプリケーション定義またはオブジェクト定義のエラーです。 この行に問題があるようで、ここから先に進めません。 Set noRng = .Range("4:4").Find(what:=.Range("番号").Value, lookat:=xlWhole) http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/45
46: 牧野 ◆Vbs7gX72NY [sage] 2020/10/10(土) 00:15:08 .Range("番号"). は、どこかのセルr範囲に「番号」という名前が付けられていないとエラーになるぞ https://i.imgur.com/qoS31Ub_d.webp?maxwidth=728&fidelity=grand http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/46
47: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 00:41:04 >>46 名前は付けてないですが、このような形でデータ入力しています。 ＞＞40についてはうまく入力できるのですが・・・。 https://imgur.com/iANDte4 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/47
48: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 03:36:11 エラーで中断したときにイミディエイトウインドウで ? .range("番号").valueを実行して検索する番号が表示されるか試してみて http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/48
49: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 05:38:11 セルの名前じゃなくて内容で何列目か検索したいってことか？だとしたら 正 What:="名前" 誤 What:=Range("名前").Value http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/49
50: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 05:56:42 とりあえず>>47のスクショで何がやりたいのかなんとなくわかってきたわ 色々と突っ込みたい所はあるけど、とりあえず元のコードをできるだけ直さない形で動くようにした ただし、本来は名簿のデータがある程度入ってないと動かないコードなんで、一箇所だ行番号を修正した Sub 検索() Dim noRng As Range Dim nameRng As Range Dim namelRng As Range With Worksheets("30年（当月）") Set noRng = .Range("4:4").Find(what:="番号", lookat:=xlWhole) Set nameRng = .Range("4:4").Find(what:="氏名", lookat:=xlWhole) Set namelRng = .Range("i9999").End(xlUp) '★この行は動かすためにアレンジ Cells(namelRng.Row + 1, noRng.Column) = "新規番号" Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名" End With End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/50
51: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 06:04:41 で、名前の列を検索したのにその結果を使わないのはおかしいので、新規を追加する行を検索する部分も修正 Sub 検索() Dim noRng As Range Dim nameRng As Range Dim namelRng As Range With Worksheets("30年（当月）") Set noRng = .Range("4:4").Find(what:="番号", lookat:=xlWhole) Set nameRng = .Range("4:4").Find(what:="氏名", lookat:=xlWhole) Set namelRng = .Cells(9999, nameRng.Column).End(xlUp) Cells(namelRng.Row + 1, noRng.Column) = "新規番号" Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名" End With End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/51
52: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 06:07:37 ごめん、Withの存在を忘れてたんで訂正 Sub 検索() Dim noRng As Range Dim nameRng As Range Dim namelRng As Range With Worksheets("30年（当月）") Set noRng = .Range("4:4").Find(what:="番号", lookat:=xlWhole) Set nameRng = .Range("4:4").Find(what:="氏名", lookat:=xlWhole) Set namelRng = .Cells(9999, nameRng.Column).End(xlUp) .Cells(namelRng.Row + 1, noRng.Column) = "新規番号" .Cells(namelRng.Row + 1, nameRng.Column) = "新規氏名" End With End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/52
53: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 22:31:35 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel for Microsoft 365 MSO(16.0.13231.20348)64bit 【3 VBAが使えるか .】 はい 【4 VBAでの回答の可否】 可 仕事で2台のデスクトップPCを使用しています、1台を新しく買い替えたためofficeをダウンロードしてインストールしました。 新PCのエクセルで結合セルを含むソート(並べ変え)ができなくなって困っています A1〜G30の範囲で各行のE列とF列が結合されています この状態でソートをかけると「この操作を行うには、すべての結合セルを同じサイズにする必要があります。」とエラーになります 古いPCのエクセル（ Excel for Microsoft 365 MSO(16.0.12527.21096)64bit）では問題なくソート(並べ変え)はできます。 これはパソコンが原因なのか、エクセルが原因なのか、分かる方がいらっしゃれば教えてください また、office365で前のバージョンをインストールする方法があれば、教えていただきたいです よろしくお願いします。 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/53
54: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 22:41:34 >>53 だから何で馬鹿はすぐセル結合するのかね？ http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/54
55: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 22:47:26 馬鹿だからだろ お前も考えないもわかるのか http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/55
56: 名無しさん＠そうだ選挙にいこう [] 2020/10/10(土) 22:51:39 >>53 エクセルのダウングレードを考えるより、vbaの回答が可なら結合解除して並び替え後に再結合するマクロを作ったらいいんじゃね http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/56
57: 名無しさん＠そうだ選挙にいこう [] 2020/10/10(土) 22:56:16 特定のセルをクリップボードにコピーするマクロってどう書く？ http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/57
58: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 22:56:58 まだ結合結合言ってるのか 結合する奴は結合の意味わかってて結合するのかね？ http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/58
59: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/10(土) 23:02:48 >>57 Sub Sample1() 'セルA1の内容をクリップボードに入れる With CreateObject("Forms.TextBox.1") .Text = Cells(1, 1) .SelStart = 0 .SelLength = .TextLength .Copy End With End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/59
60: 牧野 ◆Vbs7gX72NY [] 2020/10/11(日) 00:11:45 >>53 エクセルが原因です 並べ替えをするならセル結合はやめたほうが良い セル結合は、送付状みたいに完全に文書としてエクセルを使う時だけにしたほうが良い >>54 馬鹿じゃなくて初心者。誰だって初心者の頃はあるんだから、そう見下さない方が良いよ http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/60
61: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/11(日) 01:37:27 >>60 高度な見下し方だなお前 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/61
62: 名無しさん＠そうだ選挙にいこう [sage] 2020/10/11(日) 03:33:55 >>49 ありがとうございます。 解決できました。 http://mevius.5ch.net/test/read.cgi/bsoft/1601993310/62
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 940 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.010s