[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
945(1): 2019/10/03(木)22:51 AAS
色が付いていく様子が見えると言うことは表示切ってないだろうから、
screenupdatingを切れば50行程度ならマシになるんじゃね
946(1): 2019/10/03(木)23:11 AAS
>>945
画面の切り替えはないから速度変化はないと思うけどscreenupdatingは別のマクロで使えそうなので感謝
947: 2019/10/03(木)23:15 AAS
>>946
画面の切り替えではなく、描画をONOFFする命令だよ
948(1): 2019/10/04(金)07:02 AAS
指定したセル範囲内に、異なる2つ以上の値(ブランク含まない)があればtrueを返す、VBAプログラムを教えてください。
949: 2019/10/04(金)07:33 AAS
二重ループしか思いつかんけどなんかあるかな
950(1): 2019/10/04(金)08:15 AAS
>>948
Function 違うのがある()
違うのがある = False
For Each c In Range("A1:E10")
If c.Value <> "" Then x = c.Value: Exit For
Next
For Each c In Range("A1:E10")
If c.Value <> "" And c.Value <> x Then 違うのがある = True: Exit For
Next
End Function
951: 2019/10/04(金)08:31 AAS
>>950
良さそうな案と早レスありがとうございます！
試してみます！
952: 2019/10/05(土)02:29 AAS
更新プログラムの為にサインインしたらメニューバーに自分の名前が出るようになったのでサインアウトしようとしたら「カスタマイズしたものが失われます」と警告が
通信を切って再起動しても変わらず悩んだ末にサインアウト！
結果は特にカスタマイズしたもので消えたものはなくて一安心だがカスタマイズしたものって何だったの？
953(2): 2019/10/05(土)11:09 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2017
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
出力したエクセルデータを、特定のフォーマットに整理する作業を簡単にしようとしています
ひとまずマクロで自動記録したものを加工しながらどうにか自動化したのですが
例えばG列をC列の前に切り取って貼り付けすると旧C列がD列となりますよね？
これを繰り返すと少しずつ列がズレるためか、思ったような動きにならずかなり手間取りました
「次にB列に行を挿入したいがC列と記録したほうが正しく動く」ような状態があり…
マクロ記録において、こういうやり方は正しいですか？
954(2): 2019/10/05(土)12:20 AAS
>>953
挿入後のズレを考慮して作ってもいいし、前に挿入するなら後ろから処理していくと楽だと思うよ
955(1): 2019/10/05(土)12:50 AAS
新しいシートにポイポイ放り込む形にしてみては
956(1): 2019/10/05(土)13:21 AAS
C:CにA1と同じセルがあるかどうかをチェックする際、どの関数を使いますか？
countif()？match()？
957: 2019/10/05(土)13:28 AAS
>>956
俺はcountifだがかなり人によると思う
958: 2019/10/05(土)15:02 AAS
Ｈの列だけで空欄のセルがある場合には一つ上のセルをコピーしたいのですが
↓だと、Ａ列ではない他の列の最終行まで続いているのと、すべてのセルにも
同じコピーをしてしまいます。
For r = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
On Error Resume Next
With range("H2:H" & r)
.SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
.Value = .Value
End With
Next r
省1
959: 2019/10/05(土)15:18 AAS
>>954
意味深だなぁ、
960: 2019/10/05(土)16:28 AAS
>>954
一応アリなんですね
初めて使ったので試行錯誤でしたが…確かに後ろから処理してなるべくずれないようにしたほうがすっきりしそうです
>>955
新しいシートに作れたらレベルが1つ上がりそうですね
実は不要な列も多いので、その方法は今後試してみたいです
961: 2019/10/05(土)20:07 AAS
>>953
データ量や型にもよるけど、
配列に入れてから貼り付けるのがいい。
a = Range("A1:A65536").Value
Range("C1:C65536").Value = a
962(2): 2019/10/05(土)23:26 AAS
Ｊの列で半角の英数字以外の文字を消すコードを教えてください
"あ5いうAえ6おBかき"→"5A6B"
963: 2019/10/05(土)23:30 AAS
>>962
substitute jisとかそんなん
964(3): 2019/10/06(日)03:59 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
競馬のデータをエクセルに入れたのですが競走馬の名前と競馬場や距離を入れると
各着順のカウントをしたいのですがVLOOKUPとCOUNTIFSをどう組み合わせればいいのか
教えてください。
http://iup.2ch-library.com/i/i2017802-1570301315.jpg
上下前次1-新書関写板覧索設栞歴
あと 38 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.497s*