[過去ﾛｸﾞ] Excel総合相談所 141 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
43(1): 2020/10/09(金)23:42 AAS
>>42
後半の方のCellsとかRangeに.が付いてないのは原因としてあるかもしれない
それと、エラーの内容を書いてくれ
恐らくSetしたnoRngがNothingだからかと思うが
44: 2020/10/09(金)23:47 AAS
>>42
まさか、こういうこと？
誤 Set namelRng = Range("i15").End(xlDown)
正 Set namelRng = .Range("i15").End(xlDown)
45: 2020/10/09(金)23:59 AAS
>>43
実行時エラー’1004’
アプリケーション定義またはオブジェクト定義のエラーです。
この行に問題があるようで、ここから先に進めません。
Set noRng = .Range("4:4").Find(what:=.Range("番号").Value, lookat:=xlWhole)
46(1): 牧野 ◆Vbs7gX72NY 2020/10/10(土)00:15 AAS
.Range("番号").
は、どこかのセルr範囲に「番号」という名前が付けられていないとエラーになるぞ
https://i.imgur.com/qoS31Ub_d.webp?maxwidth=728&fidelity=grand
47(1): 2020/10/10(土)00:41 AAS
>>46
名前は付けてないですが、このような形でデータ入力しています。
＞＞40についてはうまく入力できるのですが・・・。
https://imgur.com/iANDte4
48: 2020/10/10(土)03:36 AAS
エラーで中断したときにイミディエイトウインドウで
? .range("番号").valueを実行して検索する番号が表示されるか試してみて
49(1): 2020/10/10(土)05:38 AAS
セルの名前じゃなくて内容で何列目か検索したいってことか？だとしたら
正 What:="名前"
誤 What:=Range("名前").Value
50: 2020/10/10(土)05:56 AAS
とりあえず>>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)
省5
51: 2020/10/10(土)06:04 AAS
で、名前の列を検索したのにその結果を使わないのはおかしいので、新規を追加する行を検索する部分も修正
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) = "新規番号"
省3
52(1): 2020/10/10(土)06:07 AAS
ごめん、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) = "新規番号"
省3
53(3): 2020/10/10(土)22:31 AAS
【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）では問題なくソート(並べ変え)はできます。
これはパソコンが原因なのか、エクセルが原因なのか、分かる方がいらっしゃれば教えてください
省2
54(1): 2020/10/10(土)22:41 AAS
>>53
だから何で馬鹿はすぐセル結合するのかね？
55: 2020/10/10(土)22:47 AAS
馬鹿だからだろ
お前も考えないもわかるのか
56: 2020/10/10(土)22:51 AAS
>>53
エクセルのダウングレードを考えるより、vbaの回答が可なら結合解除して並び替え後に再結合するマクロを作ったらいいんじゃね
57(2): 2020/10/10(土)22:56 AAS
特定のセルをクリップボードにコピーするマクロってどう書く？
58: 2020/10/10(土)22:56 AAS
まだ結合結合言ってるのか
結合する奴は結合の意味わかってて結合するのかね？
59(1): 2020/10/10(土)23:02 AAS
>>57
Sub Sample1() 'セルA1の内容をクリップボードに入れる
With CreateObject("Forms.TextBox.1")
.Text = Cells(1, 1)
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
End Sub
60(1): 牧野 ◆Vbs7gX72NY 2020/10/11(日)00:11 AAS
>>53
エクセルが原因です
並べ替えをするならセル結合はやめたほうが良い
セル結合は、送付状みたいに完全に文書としてエクセルを使う時だけにしたほうが良い
>>54
馬鹿じゃなくて初心者。誰だって初心者の頃はあるんだから、そう見下さない方が良いよ
61: 2020/10/11(日)01:37 AAS
>>60
高度な見下し方だなお前
62: 2020/10/11(日)03:33 AAS
>>49
ありがとうございます。
解決できました。
上下前次1-新書関写板覧索設栞歴
あと 940 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s