Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7789 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【36924】ナンバーリングについて がんちゃん 06/4/18(火) 12:56

【36932】Re:ナンバーリングについて Kein 06/4/18(火) 14:36

【36937】Re:ナンバーリングについて がんちゃん 06/4/18(火) 16:37

【36940】Re:ナンバーリングについて Kein 06/4/18(火) 17:19

【36951】Re:ナンバーリングについて がんちゃん 06/4/18(火) 22:12

【36952】Re:ナンバーリングについて Kein 06/4/18(火) 22:56

【36960】Re:ナンバーリングについて がんちゃん 06/4/19(水) 9:22

【36976】Re:ナンバーリングについて Kein 06/4/19(水) 11:52

【36999】Re:ナンバーリングについて がんちゃん 06/4/19(水) 16:26

【36982】Re:ナンバーリングについて ハチ 06/4/19(水) 12:58

【36996】Re:ナンバーリングについて がんちゃん 06/4/19(水) 16:20


	【36924】ナンバーリングについて

がんちゃん - 06/4/18(火) 12:56 -


	引用なし

	パスワード

手動で＝「ＣＴＲＬ」＋「↑」＋「１」と作業して上方の数字に１を加算するようにしていますが、これをマクロでする方法はないでしょうか？
マクロの記録でやってもうまくできません。
よろしくお願いします。


	【36932】Re:ナンバーリングについて

Kein - 06/4/18(火) 14:36 -


	引用なし

	パスワード

>手動で＝「ＣＴＲＬ」＋「↑」＋「１」と作業して上方の数字に１を加算
何かイマイチ理解しにくいのですが、例えば A2 から下へ、B列の最終入力行まで
ナンバリングするなら・・

Sub Set_Number()
　 Dim LR As Long

　 LR = Range("B65536").End(xlUp).Row - 1
　 With Range("A2")
　　　.Value = 1
　　　.AutoFill .Resize(LR), xlLinearTrend
　 End With
End Sub

というコードで出来ますが。


	【36937】Re:ナンバーリングについて

がんちゃん - 06/4/18(火) 16:37 -


	引用なし

	パスワード

Kein さん　ありがとうございます。
少し言葉が足らなかったようで申し訳ありませんでした。

例えば、Ａ１に１を入力し、Ａ５を選択し＝を入力し「ＣＴＲＬ」キーを押して「↑」キーを押しさらに＋１と入力すると２が入力されます。さらにＡ７を選択して同様のことをすると３が入力されます。

Ａ列の任意のセルを選択してマクロを実行し、直上の数値に１を加算させたい訳です。

よろしくお願いいたします。


	【36940】Re:ナンバーリングについて

Kein - 06/4/18(火) 17:19 -


	引用なし

	パスワード

こーいうことかな ?

Dim Num As Long

With ActiveCell
　 If .Row = 1 Then Exit Sub
　 If Not IsNumeric(.Value) Then Exit Sub
　 With .End(xlUp)
　　　If Not IsNumeric(.Value) Then Exit Sub
　　　Num = .Value
　 End With
　 .Value = .Value + Num
End With

いちおう、数値を入力した瞬間に自動的に計算した値を表示するとして・・

Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim Num As Long
　
　 With Target
　　　If .Row = 1 Then Exit Sub
　　　If .Count > 1 Then Exit Sub
　　　If IsEmpty(.Value) Then Exit Sub
　　　If Not IsNumeric(.Value) Then Exit Sub
　　　With .End(xlUp)
　　　　 If Not IsNumeric(.Value) Then Exit Sub
　　　　 Num = .Value
　　　End With
　　　Application.EnableEvents = False
　　　.Value = .Value + Num
　 End With
　 Application.EnableEvents = True
End Sub


	【36951】Re:ナンバーリングについて

がんちゃん - 06/4/18(火) 22:12 -


	引用なし

	パスワード

Kein さん　ありがとうございます。
しかし思うような結果が得られませんでした。

結果が数値でなく＝直上セル番地＋１という算式をそのまま表示したいのですが・・・


	【36952】Re:ナンバーリングについて

Kein - 06/4/18(火) 22:56 -


	引用なし

	パスワード

んー・・数式をそのまま表示したいのなら・・

Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim AdSt As String
　 Dim x As Long, Num As Long, Num2 As Long
　
　 With Target
　　　If .Column > 1 Then Exit Sub
　　　If .Row = 1 Then Exit Sub
　　　If .Count > 1 Then Exit Sub
　　　If IsEmpty(.Value) Then Exit Sub
　　　If Not IsNumeric(.Value) Then Exit Sub
　　　If .End(xlDown).Row > 65536 Then Exit Sub
　　　Num = .Value
　　　With .End(xlUp)
　　　　 x = InStr(1, .Value, "+")
　　　　 If Left(.Value, 1) = "=" And x > 0 Then
　　　　　　Num2 = Val(Mid(.Value, x + 1))
　　　　　　AdSt = "'=" & .Address(0, 0) & "+" & (Num + Num2)
　　　　 Else
　　　　　　AdSt = "'=" & .Address(0, 0) & "+" & Num
　　　　 End If
　　　End With
　　　Application.EnableEvents = False
　　　.Value = AdSt
　 End With
　 Application.EnableEvents = True
End Sub

で、どうかな ? A列で任意の整数を入力してみて下さい。


	【36960】Re:ナンバーリングについて

がんちゃん - 06/4/19(水) 9:22 -


	引用なし

	パスワード

Kein さん　何回もすみません(__)

このコードはコマンドボタンとかに貼り付けるのでしょうか？
ユーザーフォームに貼り付けてみたのですが、実行してくれません。

基本的なことがわかってなくてすみません。教えてください。


	【36976】Re:ナンバーリングについて

Kein - 06/4/19(水) 11:52 -


	引用なし

	パスワード

目的のシートのシートモジュールに入れて下さい。
分からなかったら↓の「マクロの使い方(2)」を参考に。
http://park11.wakwak.com/~miko/Excel_Note/14-01_macro.htm#14-01-01


	【36982】Re:ナンバーリングについて

ハチ - 06/4/19(水) 12:58 -


	引用なし

	パスワード

▼がんちゃんさん：
>Kein さん　ありがとうございます。
>しかし思うような結果が得られませんでした。
>
>結果が数値でなく＝直上セル番地＋１という算式をそのまま表示したいのですが・・・

直上のセル番地に＋１だとこんな感じでしょうか？

Sub test()

Dim Target As Variant

Set Target = ActiveSheet.Range("A:A").Find(What:="*", SearchDirection:=xlPrevious, After:=ActiveCell)

If Target Is Nothing Then
　　ActiveCell.Value = "1"
Else
　　ActiveCell.Value = "=" & Target.Address(0, 0) & "+1"
End If

End Sub

A列のセルを選択した状態で動作させると、
そのセルから上でデータがある箇所を検索して、番地+1を入力。
データのあるセルとセルの間で動かすと↑のセルの値に＋１になるので
最大値にはなりませんが・・良いのかな？


	【36996】Re:ナンバーリングについて

がんちゃん - 06/4/19(水) 16:20 -


	引用なし

	パスワード

ハチさんありがとうございました。

思っていたとおりの結果を得ることができました。
大変参考になりました。


	【36999】Re:ナンバーリングについて

がんちゃん - 06/4/19(水) 16:26 -


	引用なし

	パスワード

Kein さん　いろいろとお世話になりました。

はちさんの方法で思っていたとおりの結果を得ることができました。
リンクのサイトも参考にさせていただき、もう少し勉強します。
ありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7789 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free