現在マクロ勉強中です。
教えて頂きたいのは、登録ボタンで指定セルの台帳への転記する方法です。
Private Sub cmdToroku_Click()
Dim myrow As Integer
Option Explicit
With ActiveSheet
If .Range("A4").Value = "" Then
myrow = 1
Else
myrow = .Range(Cells(.Rows.Count, 1).End(xlUp).Address).Row + 1
End If
.Cells(myrow, 1).Value = TextBox1.Value
End With
End Sub
上記ですと、開いているシートのA1に入力されてしまいます。
別シートへ転記したい場合どのあたりを修正すればよいのでしょうか？
お力お借りできれば幸いです。
現在マクロ勉強中です。
教えて頂きたいのは、登録ボタンで指定セルの台帳への転記する方法です。
Private Sub cmdToroku_Click()
Dim myrow As Integer
Option Explicit
With ActiveSheet
If .Range("A4").Value = "" Then
myrow = 1
Else
myrow = .Range(Cells(.Rows.Count, 1).End(xlUp).Address).Row + 1
End If
.Cells(myrow, 1).Value = TextBox1.Value
End With
End Sub
上記ですと、開いているシートのA1に入力されてしまいます。
別シートへ転記したい場合どのあたりを修正すればよいのでしょうか？
お力お借りできれば幸いです。
エクセル2013です。
初めて配列を使います。
以下のように作成し思ったようにできました。
Sub 計算()
'成功
Dim a As Integer
Dim c As Integer
Dim b(5) As Integer
Dim 最終行
Dim 値列
値列 = 17
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For 処理業 = 1 To 最終行
For a = 1 To 5
b(a - 1) = Cells(1, 値列)
値列 = 値列 + 1
Next
値列 = 17
For a = 1 To (22 - 値列)
c = c + b(a - 1)
Next
Cells(処理業, 30) = c
a = 0
c = 0
Next 処理業
End Sub
ただ計算する列の範囲をインプットボックスで入力した値
にしたい為以下のように改造しました。
Dim b(対象列) As Integerでエラーになります
配列には変数は使用できないのでしょうか？
よろしくお願いします。
Sub 計算()
'失敗
Dim a As Integer
Dim c As Integer
Dim b(対象列) As Integer’★ここでERRになる
Dim 最終行
Dim 対象列
Dim 値列
対象列 = 22'インプットボックスで入力した値
値列 = 17
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For 処理業 = 1 To 最終行
For a = 1 To (対象列 - 17)
b(a - 1) = Cells(1, 値列)
値列 = 値列 + 1
Next
値列 = 17
For a = 1 To (22 - 値列)
c = c + b(a - 1)
Next
Cells(処理業, 30) = c
a = 0
c = 0
Next 処理業
End Sub
教えて頂いたＶＢＡなのですが
Sub Macro1()
Dim Ws01 As Worksheet
Dim Counter As Long, i As Long, j As Long
Dim INP As String
Set wS = Worksheets("Sheet4")
wS.Cells.ClearContents
If Selection(Selection.Count).Row <> 2 Then Exit Sub
Counter = 0
For i = 3 To ActiveSheet.UsedRange.Rows.Count
INP = ""
For j = Selection(1).Column To Selection(Selection.Count).Column
If Cells(i, j) = 1 Then
INP = INP & Cells(2, j) & ","
End If
Next j
If INP <> "" Then
Counter = Counter + 1
wS.Cells(Counter, "A") = Left(INP, Len(INP) - 1)
End If
Next i
End Sub
----------------------------------------------------------------------
ｇ ｈ ｉ ｊ
パセリ クレソン メキャベツの葉 ごぼう
１ １ １
１ １
1行目 パセリ,クレソン,メキャベツの葉
2行目
3行目 パセリ,メキャベツの葉
と、2行目は詰めずに空白表示したいです。
どこをどうすればできますか？
http://okwave.jp/qa/q8690800.html
の続きです。ご指摘のとおりコードを改変しました。
startはばっちり動いたのですが、stopが命令を受け付けてくれなくて
「Ontimeメソッドは失敗しました。Applicationオブジェクト」とでます。
何か原因があるのでしょうか。ご指摘よろしくお願いします。
Sub t_start()
Call last20txt
End Sub
Sub t_stop()
Application.OnTime earliesttime:=tt, procedure:="last20txt", Schedule:=False
End Sub
-------------------------------------------
下記Call先です。
Sub last20txt()
Dim Srg As Range
Dim kensu As Long
Set Srg = Cells(1, 1)
Workbooks.Open ("C:***.csv")
kensu = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(kensu - 19, 1), Cells(kensu, 4)).Copy Srg
ActiveWorkbook.Close
Dim wt As Date
Dim tt As Date
tn = Now()
tt = tn + TimeValue("00:00:05") '5秒後
wt = TimeValue("00:00:02") 'インターバル2秒
Application.OnTime tt, "last20txt", wt
End Sub
