Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"例"5 件の検索結果
"例" 一致するキーワードは見つかりませんでした。
全般
質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。
Sub コード例()
Dim sh2 As Worksheet, rng As Range
Workbooks("Book2.xls").Activate
Set sh2 = ActiveSheet
Workbooks("Book1.xls").Activate
For Each rng In Selection
rng.Copy sh2.Range(rng.Ad...
4552日前view107
全般
質問者が納得I1:
=IF(A1="赤",H1,"")
J1:
=IF(A1="青",H1,"")
K1：
=IF(A1="黄",H1,"")
このセルを下方向にオートフィル
各列をSUM関数で合計を求めてみては・・・
または
=SUMIF(A1:A10,"赤",H1:H10)
範囲及び””内は変更
6510日前view17
全般
質問者が納得御質問文に忠実に２つのセル範囲を指定してから実行するように作成してみました。
（ただし、一致しない部分の色は xlColorIndexNone とするよう、勝手に処理を加えています。）
参考になさってみてください。
Sub Sample()
Dim R As Range
If Selection.Areas.Count <> 2 Then
MsgBox ("２つの範囲を選択してから実行してください")
Exit Sub
End If
If Selection....
4735日前view45
全般
質問者が納得できます。
Ａも開いた状態で、
Ｂに式を入力します。
これは例ですが、
=VLOOKUP(A2,[A.xls]Sheet1!$B$2:$J$10,2,FALSE)
範囲を指定するときに、ＡのB2:J10を指定すると、
このように表示されます。
もちろん、直接式を入力してもいいですが、
この方が簡単です。
作業が終わってＢを保存した後、
また開くときは下記のようになります。
Ａの表を開いていない状態でＢを開くと、
「このブックには、ほかのデータソースへのリンクが設定されています。
リンクを更...
4966日前view41
全般
質問者が納得マクロの例です。
データ１の場合
Dim i As Long
Dim j As Long
j = 2
For i = 7 To 10003 Step 12
Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("C" & j).Value
j = j + 8
Next i
データ2、データ3は応用してください。
5146日前view8
- 1
