0001名無しさん＠そうだ選挙にいこう2019/07/27(土) 17:47:29.09
0952名無しさん＠そうだ選挙にいこう2019/10/05(土) 02:29:49.48
更新プログラムの為にサインインしたらメニューバーに自分の名前が出るようになったのでサインアウトしようとしたら「カスタマイズしたものが失われます」と警告が
通信を切って再起動しても変わらず悩んだ末にサインアウト！
結果は特にカスタマイズしたもので消えたものはなくて一安心だがカスタマイズしたものって何だったの？
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2017
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
出力したエクセルデータを、特定のフォーマットに整理する作業を簡単にしようとしています
ひとまずマクロで自動記録したものを加工しながらどうにか自動化したのですが
例えばG列をC列の前に切り取って貼り付けすると旧C列がD列となりますよね？
これを繰り返すと少しずつ列がズレるためか、思ったような動きにならずかなり手間取りました
「次にB列に行を挿入したいがC列と記録したほうが正しく動く」ような状態があり…
マクロ記録において、こういうやり方は正しいですか？
>>953
挿入後のズレを考慮して作ってもいいし、前に挿入するなら後ろから処理していくと楽だと思うよ C:CにA1と同じセルがあるかどうかをチェックする際、どの関数を使いますか？
countif()？match()？
>>956
俺はcountifだがかなり人によると思う Ｈの列だけで空欄のセルがある場合には一つ上のセルをコピーしたいのですが
↓だと、Ａ列ではない他の列の最終行まで続いているのと、すべてのセルにも
同じコピーをしてしまいます。
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
Err.Clear
>>954
一応アリなんですね
初めて使ったので試行錯誤でしたが…確かに後ろから処理してなるべくずれないようにしたほうがすっきりしそうです
>>955
新しいシートに作れたらレベルが1つ上がりそうですね
実は不要な列も多いので、その方法は今後試してみたいです >>953
データ量や型にもよるけど、
配列に入れてから貼り付けるのがいい。
a = Range("A1:A65536").Value
Range("C1:C65536").Value = a Ｊの列で半角の英数字以外の文字を消すコードを教えてください
"あ5いうAえ6おBかき"→"5A6B"
>>962
substitute jisとかそんなん >>962
Sub Macro1()
Dim s As String
For r = 1 To Cells(Rows.Count, "J").End(xlUp).Row
s = Cells(r, "J")
s2 = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
Select Case c
Case "0" To "9", "A" To "Z", "a" To "z"
s2 = s2 & c
End Select
Next
Cells(r, "J") = s2
Next
End Sub >>964
countifs(h8:h100,c2,c8:c100,c4,着順の範囲,"1着") 0971名無しさん＠そうだ選挙にいこう2019/10/06(日) 15:23:57.93
>>969
ファイル＞オプション オプション画面を表示します。
すると全般の中に、"既定でMicrosoft Search ボックス を折りたたむ" 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
INDEX+MATCHでB328の中にN2〜N27の文字列が含まれてるとO2〜27の値を表示させるワイルドカードを使ったのですが、完全一致しか反映されませんでした。
どの部分が原因でしょうか。
=INDEX($O$2:$O$27,MATCH("*"&B32&"*",$N$2:$N$27,0))
0977名無しさん＠そうだ選挙にいこう2019/10/06(日) 18:26:04.53
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
質問です。
AシートのA列に1 1 1 2 2 2 3 3 3
とあって
BシートのB列に1 2 3という風に
AシートのA列に入力した同じデータが
BシートのB列にまとまるにはどういう関数を使えばいいでしょうか？
ちなみに数字はランダムです。
説明が下手で申し訳ございません。
ご教示くださいますようよろしくお願いします。
VBAの処理と、ワークシート関数の処理はあまり絡ませない方が良いのでしょうか？
例えば、ものすごく簡単に言うと、
range A1 ＝10
range A2 ＝20
range A4 ＝ range A2 ＋ range A3
みたいなプログラムです。
(range A3のセルには、sum関数A1＋A2が入ってる)
実際は正しい値が入りますが、ちょっと気になったので…
>>978
それが必要ならば絡ませる
意味もなく混在してるんでなければいいんじゃね >>977
small(hage!a:a,row(a1))
countifあたりでも検索してみれば 974です。
=INDEX($O$2:$O$27,MATCH("*"&B32&"*",$N$2:$N$27,0))
INDEX+MATCHだと、
=INDEX($O$2:$O$27,MATCH(B32,"*"&N2:N27&"*",0))でした。
B列のなかにN列のものがふくまれていた場合にO列のコードを反映したいのですがうまくできません。どのようにしたらうまくいくでしょうか。
974、981です。
こんな形ですが、ワイルドカードで特定の文字列を含んだ数字を表示させることはできそうなのですが、もっと効率のよい関数はあると思うんですが、難しいです。
=IF(COUNTIF(B32,"*"&$N$14&"*"),$O$14,IF(COUNTIF(B32,"*"&$N$15&"*"),$O$15,""))・・・・
うまく表現できなくてすみません。
>>982
=INDEX($O$2:$O$27,MATCH(TRUE,ISNUMBER(SEARCH($N$2:$N$27,B32)),0))
Ctrl + Shift + Enter を押して数式を確認する必要があります range("b5").End(xldown).offset(1,0).select
これはレンジからoffsetまではオブジェクトで、Endとoffsetはレンジのプロパティっていう理解でいいですか？
0985名無しさん＠そうだ選挙にいこう2019/10/07(月) 12:57:22.30
書いてあるのがプロパティかオブジェクトかという話なら最後のselect以外は全部プロパティ
戻り値がプロパティかオブジェクトかという話ならrangeもendもoffsetも全部オブジェクト
>>983
有り難うございます。めっちゃ嬉しいです。 >>985
ありがとうございます。プロパティとメソッドの違いがよく分からないです。勉強します。 >>987
メソッドは関数
プロパティは変数
両者を一つにまとめたのがクラス
これらすべてがオブジェクト >>988
ありがとうございます。
.selectとか.deleteみたいに文章の最後に来るのがメソッドでドットで連結していくのがプロパティっ理解でした。。。 0990名無しさん＠そうだ選挙にいこう2019/10/07(月) 21:00:02.69
for i＝1 to 20でループしようとしたら何故か1の次に3が代入されます
なんの原因が考えられるでしょうか？
>>991
ステップインとかでみてみては？
コード見ないとわからん。 >>992
今出先なので思い出せる範囲ですが
dim i
for i ＝1 to 20
ieのチェックボックスをクリックするコード（チェックボックスのID「"×××"& i-1」）
ie操作をしており、IDの末尾が0.1.2.〜と順に増えていくチェックボックスを順にクリックしていく流れです。 >>991
2だけ飛ばすのではなくなぜか1.3.5.7〜というように飛び飛びになってました そんなもんForループの中に i = i + 1 があるだけだろ
なんでそんなうろ覚えのまま外出先で急に質問しようと思ったのか
0998名無しさん＠そうだ選挙にいこう2019/10/08(火) 17:23:58.68
|
| 彡⌒ミ
＼ (´･ω･`)また髪の話してる
(| |)::::
(γ /:::::::
し ＼:::
＼
10011001Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 73日 0時間 12分 38秒
10021002Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php