Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"コード"4 件の検索結果
"コード" 一致するキーワードは見つかりませんでした。
全般
質問者が納得１つ目の最後の文字がBの場合
Sub Macro1()
Dim I As Long '変数を定義しただけです
For I = 1 To 500 '1～500行まで繰り返す
If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する
Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA～...
4873日前view17
全般
質問者が納得> A1からA500までに～
> A510（510行目）へ貼り付け、
> 400行目を削除する
文字を含むデータと含まないデータの間に
空白行を９行挿入し、全体を５０９行とする、
と想定します。
（違う場合は適宜変更して下さい）
-------------------------------------------
作業列を２列挿入します（例えばＢ列・Ｃ列）
Ｂ列には１から順に５００まで入力（フィル）
C1
=IF(ISERR(MID(A1,9,1)*1),1,0)
C500...
4874日前view20
全般
質問者が納得通常、VBAでは条件付き書式なんて使いません。
If…Then…Elseステートメントを使って条件に合っているかどうかを判断し色付けを行います。さらに、doステートメントやforステートメントを使ってセル範囲に繰り返します。
例えば、A2:A500のセル範囲に「*」が入力されていたら灰色に塗りつぶし、空欄ならば黄色に塗りつぶすには下のようなコードになるでしょう。
For i = 2 To 500
If Cells(i, "B") = "*" Then
Cells...
5235日前view19
全般
質問者が納得ケーブルの断線の場合、有償での修理です。（ケーブル丸々交換）断線箇所がプラグ周辺なら、修理は意外と簡単に出来ると思います。（オヤイデ辺りで、プラグ単体を購入すればOK。http://oyaide.com/catalog/categories/c-1_5.html）まずは、音の出ない原因・箇所を探りましょう。
5271日前view16
- 1
