• ベストアンサー

RANGEの使い方

vb.net2008を使用しております。 エクセルのセルへの一括書き込みで ExcelSheet.Range("K2:K118") = "AAAA" とした場合　K2～K118に　AAAA　が書き込まれるのは　わかったのですが　　K118のセルが　任意に変わる場合　K118　のところの 記述はどうすればよろしいのでしょうか？ よろしくお願いします。

回答 全件
ベストアンサー
Dim ToCell As String ToCell = "K11…

質問者が選んだベストアンサー

  • ベストアンサー
  • KG_
  • ベストアンサー率62% (34/54)
回答No.1

Dim ToCell As String ToCell = "K118" ExcelSheet.Range("K2:" & ToCell) = "AAAA" などは、いかがでしょう。

to727jp
質問者

お礼

さっそくの回答ありがとうございます。 ＆　をつければいいのですね。 初心者ですいません。　勉強になりました。 ありがとうございます。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • rangeの記述方法

    vb.net2008を使用しております。 エクセルのセルへの書き込みで ExcelSheet.Range("G120") = "=SUBTOTAL(9,G2:G118)" とした場合　G120に　G2～G118 の合計が書き込まれるのは　わかったのですが　　G118の部分が　任意に変わる場合　G118　のところの 記述はどうすればよろしいのでしょうか？ よろしくお願いします。

  • エクセルの列一括書き込み

    VB.NET2008を使用しております。 VB.NETより　配列のデータをエクセルのセルへ一括書き込みしたいのですが　２次元配列はうまきいきました。（下記） Dim week0_0(11, 8) As Integer ExcelSheet.Range("C3:K14") = week0_0 上記では一括で書き込みできたのですが 列のみの書き込みがうまくいきません。（下記） Dim week0_1(11) As Integer ExcelSheet.Range("L3:L14") = week0_1 先頭の配列のデータが　L3～L14　へすべて入ってしまいます。 記述方法が悪いのでしょうか？ よろしくお願いします。

  • vb.netからエクセル関数書き込み

    vb.net2008を使用しております。 vb.netから　エクセルの　”L2”　のセルに　”K2/H2”　という 計算式を入れたいのですが　どのようなやり方があるのでしょうか？ よろしくお願いいたします。

  • Range("****")の****部分を変数にできますか？

    エクセルでＶＢＡを勉強中の初心者です。 今、配列data(row,col)に番地B17が読み込んであるとします。このセルB17にD5のセルに入っている値を入力したいのですが、次の記述ではエラーがでました。この場合どのようにすれば良いのでしょうか。どなたかご指導いただけないでしょうか。 Range(data(row,col).value)=range("D5").value

  • Excelのセルから配列変数への一括読込み

    VB(というかプログラミング)の超初心者です。 Excelシートの任意の領域にある数値を、配列変数に一括して 入力したいと思っています。 これまで、 Dim XXX(10) As Variant For I = 1 To 10 XXX(I - 1) = Cells(1, I).Value Next I Range(Cells(10, 1), Cells(10, 10)).Value = XXX の様な感じで処理していましたが(最近まで、セルへの書込みも For-Nextで処理していました)、データ数が多くなると処理に 時間がかかってしまいます。 配列YYYへの読込みもセルへの書込みの様に一括して行うには どうすれば良いでしょうか？ よろしくお願いします。

  • エクセル操作

    エクセル2007です。A1に０、A2に５、A3に１０と数字があります。 B1からK1のセルにA1のセル０のデーター、B2からK2にはA2の５のデーター、B3からK3にはA3の１０のデーターが入っています。 あるセルに０，５，１０のうち任意の数字を入力した場合にその数字のBからKまでのデーターが他のセルで参照できるようにするにはどの関数を使用すれば宜しいのでしょうか。 ご教示ください。

  • VBA Target.ColumnをRangeへ

    Excel VBAについてお尋ねいたします。 Excel VBAにて現在選択しているセルの列番号をTarget.Columnで取得することが出来ますが、Target.Columnで取得した列番号（数字）をRange方式のアルファベットに変換する方法はございますでしょうか？ Range形式のアルファベットに変換してから、セルに＝○○という数式を出力させたいです。 選択する列は、N列～右端までの間です。 取得した列番号を２６で割って２６で割って２６で割って…を繰り返して、商と余でアルファベットを形成するという方法を考えましたが、その場合でもどうやって記述すればいいですか？

  • ExcelのVBで、Rangeの範囲に任意のセル値を使うには

    VB初心者で行き詰っております。 前任者の作成したVBコードで、特定のセルの入力をテンキーで入力できるようにしています。 VBのコードについては、下記の通りとなっております。 Private Sub Worksheet_Change(ByVal Target As Range) Dim crng As Range Dim ttarget As Range Application.EnableEvents = False Set ttarget = Application.Intersect(Target, Range("C6:AG35")) If Not ttarget Is Nothing Then ttarget = Application.VLookup(ttarget, Worksheets("入力").Range("A1:B10"), 2,False) For Each crng In ttarget If IsError(crng) Then crng.Value = "" End If Next End If Application.EnableEvents = True End Sub ここで、シート内の範囲が変更となる（対象となる行が増減される）ことが発生します。 Set ttarget = Application.Intersect(Target, Range("C6:AG35")) ※この部分がRange("C6:AG37")や、Range("C6:AG33")などに変更となるということです。 その都度、VBの変更をかけると可能なのですが、より効率的にするため、入力という名前のシートに ある空きセルをうまく活用したいと考えております。 Range("C6:AG35")の部分で、任意のセルを参照する変数を利用するには、 どのように記述したらよろしいでしょうか？ また、別法として、常に行数をカウントできる方法でも可能なのかもしれません。 最初の行に値するセルがC6から始まり、最終行よりも下は空白セルとなります。 とすれば、行数をカウントして変数に組み込むことも一つなのかもしれませんが、技術がないため、 思いつくだけにとどまっております。 アドバイスをいただければと思います。よろしくお願いします。

  • ＶＢからエクセルへの書き込みについて

    xlSheet.Range("B24") =123　の様にするとエクセルのＢ４セルに１２３が書き込まれますが、エクセルのセルをマウスでダブルクリックしてセルにカーソルが表示されている状態にすると書き込みが停止します エクセルを操作してもＶＢの書き込みが停止しない方法は無いでしょうか ご存じの方恐れ入りますが宜しくお願いします

  • SQL文で・・・

    こんにんちは。ご多忙だと思いますが回答宜しくお願い致します。 今、ＶＢのソースを見ているのですが（ＶＢ初心者）、ＳＱＬ文を作成している 部分があるのですが、ちょっとわかりません。 w_st_sql = "SELECT * FROM AAAA WHERE (K1 || K2 || K3) = " & "'" & p_st_key & "'" 上記のソースは（自分なりに解析したんですが）、テーブルAAAAのレコードで 変数p_st_keyの値がフィールドK1, K2, K3のどれかに当てはまるすべてのフィールドを取得する考えでよろしいのでしょうか？ わからない部分は"(K1 || K2 || K3)"です。 すごく簡単な事かもしれませんが宜しくお願い致します。

カッターが動きました
このQ&Aのポイント
  • ピータッチのj100を使用しているのですが、カッターが動きました。エラーが発生し、テープの先端を切ることで問題を解決しましたが、印刷時に余白が多く出る問題が発生しています。
  • 使用しているピータッチのj100でカッターが動きました。エラーメッセージが表示され、テープの先端を切ることで解決しましたが、印刷時に余白の問題が発生しています。
  • j100のカッターが動いてしまったため、エラーメッセージに従いテープの先端を切って解決しました。しかし、印刷時には余白の調整がうまくいかず、問題が発生しています。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する