gunakan koding ini [ALT]+ [F11] , pilih object [WorkSheet] dan Evet [Change]
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row = 1 And
Target.Column = 1 Then
Target.Offset(Target.Value, 0).SelectEnd If
End Sub
To: belajar-excel@yahoogroups.com
From: korongasm...
terima kasih Um Kid..
*target.offset(target.value).activate*
tadinya mau dibuat linier spt itu
Target(Target.Value +1, 1).Activate
tetapi menunggu dulu comments dari beben
(yg sepertinya belum sepat baca jawaban)
tks masukannya...
haps
2011/7/22 Mr. Kid
> **
>
>
> disederhanakan dikit bag
disederhanakan dikit bagian :
Select Case Target.Value
Case 1: Range("A2").Activate
Case 2: Range("A3").Activate
Case 3: Range("A4").Activate
Case 4: Range("A5").Activate
End Select
jadi :
target.offset(target.value).activate
Kid.
2011/7/22 Haps
> **
>
>
> afaik, tidak ada rumus yg bisa* berti
maaf bang /pok momod..
lampirane keri dul !!
2011/7/22 Haps
> rumus maupun fungsi di sheet excel, hanya bisa mengambalikan data (dengan
> cara menampakkan hasinya) itupun harus di cell dimana rumus ditulis.
> imho, keperluan anda tsb dapat dipenuhi dengan makro (bukan rumus)
> misal seperti in
afaik, tidak ada rumus yg bisa* bertindak* (misal mindahkan cell-aktif (yg
yg sedang dihinggapi cellpointer) ke cell lain
mengtifkan sheet lain, memformat cell / range dst
rumus maupun fungsi di sheet excel, hanya bisa mengambalikan data (dengan
cara menampakkan hasinya) itupun harus di cell diman
5 matches
Mail list logo