よねさんのWordとExcelの小部屋　なんでも掲示板 [One Tree All Message]

よねさんのWordとExcelの小部屋　なんでも掲示板

ツリー一括表示
最終列を取得 /まり Mail (18/05/20(Sun) 13:15) #13260
`└` Re[1]: 最終列を取得 /よねさん (18/05/20(Sun) 14:10) #13261
`└` Re[2]: 最終列を取得 /まり Mail (18/05/20(Sun) 20:52) #13262
`└` Re[3]: 最終列を取得 /よねさん (18/05/21(Mon) 07:34) #13263
`└` Re[4]: 最終列を取得 /まり Mail (18/05/21(Mon) 08:38) #13264

親記事　/ ▼[ 13261 ]

■13260 / 親階層)

　最終列を取得

□投稿者/ まり Mail -(2018/05/20(Sun) 13:15:16)

こんにちは。
お世話になっております。

よねさん、
最終列を取得して追加をその列に文字を入るようにしたいのですがご教示ください

例
　A列　B列　C列　D列　E列　F列　G列　
1**　　**　　**　　　　**
2**　　**　　**　　　　**
　行に値が入ったときに
　F列、G列に決まった文字を入れたいのですが宜しくお願い致します。

[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13260 ] / ▼[ 13262 ]

■13261 / 1階層)

　Re[1]: 最終列を取得

□投稿者/ よねさん -(2018/05/20(Sun) 14:10:11)

質問が理解できているか心配ですが・・・

どこかのセルに入力したら、その行の　F列のセルに何か表示したい
ということでしょうか?
このコードは1～5行目で反応します。
詳細は　http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change
　のChangeイベントをご覧ください。
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 Or Target.Row > 6 Then Exit Sub
    Application.EnableEvents = False
        Cells(Target.Row, 6).Value = "この行に入力されました"
    Application.EnableEvents = True
End Sub

[ 親 13260 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13261 ] / ▼[ 13263 ]

■13262 / 2階層)

　Re[2]: 最終列を取得

□投稿者/ まり Mail -(2018/05/20(Sun) 20:52:42)

早速のお返事ありがとうございます。

私の説明が下手で大変申し訳ありません。
A　　B　　　　C　　D　　　E　　　　F　　　G　　　H　　　I～L列
区分物件名　部屋　所在地　価格価格変更　完成日　状況 A社～Ｌ者
**　**　　　空白　**　　　**　　　***　　　***
**　**　　　**　　**　　　**　　　***　　　***
・
A～Gまでは、別シートのデータを抽出して貼り付けられたものです。　
データは、行が可変します。
貼り付けられた時にH列には決まった文字、I列～L列に○が挿入される
というようにしたいのですが、

A　　B　　　　C　　D　　　E　　　　F　　　G　　　H　　　　　I～L列
区分物件名　部屋　所在地　価格価格変更　完成日　状況　　　A社～E社
**　**　　　空白　**　　　**　　　***　　　***　　商談・済　○～　○
**　**　　　**　　**　　　**　　　***　　　***　　商談・済　○～　○

よねさんの手間を取らせてしまい申し訳ありませんが再度よろしくお願いいたします。

　　　　　　　　　

[ 親 13260 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13262 ] / ▼[ 13264 ]

■13263 / 3階層)

　Re[3]: 最終列を取得

□投稿者/ よねさん -(2018/05/21(Mon) 07:34:49)

貼り付けたときに、空白とならない列がA列であるなら
H3セルの数式例　=IF(A3<>"","決まった文字","")
といった数式を貼り付けられるであろう行に数式をあらかじめ入力しておくと、
A～G列を貼り付けたときに文字が表示されます。

数式は、A3が空でないなら、"決まった文字"を表示しなさい、そうでなかったら""を表示しなさい。という意味です。
=IF(A3="","","決まった文字")　の方が良いかも・・・

[ 親 13260 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13263 ] / 返信無し

■13264 / 4階層)

　Re[4]: 最終列を取得

□投稿者/ まり Mail -(2018/05/21(Mon) 08:38:31)

ありがとうございます。
思う様にできました。

本当にいつもありがとうございます。

[ 親 13260 / □ Tree ] 返信/引用返信 削除キー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -