[belajar-excel] Mendeteksi keystroke pada lembar kerja

classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Mendeteksi keystroke pada lembar kerja

Heru Safrudin
Dear Master,

 

Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?

Ceritanya saya pingin mencegah/mengunci tombol tertentu.

 

Terima kasih

 

 <ymsgr:sendIM?heru.safrudin>  

 

 

 

 

 


 <http://www.carajawab.com/?id=heru.safrudin>

 

 


image001.gif (3K) Download Attachment
image002.gif (64K) Download Attachment
image003.png (3K) Download Attachment
image004.gif (4K) Download Attachment
image005.gif (4K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

Miss Jan Raisin
pak Heru,

coba gunakan application.onkey
setiap tombol diwakili oleh tombol tersebut

misal:
{a} untuk huruf a
{1} untuk angka 1
{ENTER} untuk tombol ENTER
{F1} untuk tombol F1
sepesial karakter diapit dengan kurung kurawal
contoh: {^} untuk tanda ^ yang memiliki arti berbeda dengan "^" atau CTRL

spesial tombol hanya 3 yaitu:
tombol CTRL diwakili dengan "^"
tombol Shift diwakili dengan "+"
tombol Alt diwakili dengan "%"

contoh untuk men-disable tombol CTRL C (copy melalui keyboard)

Private Sub Worksheet_Activate()
    Application.OnKey "^{c}", ""
End Sub

syntaxnya:

Application.OnKey nama_tombolnya, parameternya

Salam,

-Miss Jan Raisin-


Pada 2 Agustus 2013 13.41, Heru Safrudin <[hidden email]> menulis:

> **
>
>
>  Dear Master,****
>
> ** **
>
> Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?****
>
> Ceritanya saya pingin mencegah/mengunci tombol tertentu.****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> ****** **
>
> ** **
>
>
>

image002.gif (64K) Download Attachment
image005.gif (4K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

RE: [belajar-excel] Mendeteksi keystroke pada lembar kerja

Heru Safrudin
Misalkan kolom A hanya boleh diisi dengan numeric

Dan kolom B hanya boleh diisii string

 

Bagaimana code-nya ?

 

 <ymsgr:sendIM?heru.safrudin>  

 

 

 

 

 


 <http://www.carajawab.com/?id=heru.safrudin>

 

  _____  

From: [hidden email] [mailto:[hidden email]]
On Behalf Of Jan Raisin
Sent: 02 Agustus 2013 14:32
To: [hidden email]
Subject: Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

 

 

pak Heru,

 

coba gunakan application.onkey

setiap tombol diwakili oleh tombol tersebut

 

misal:

{a} untuk huruf a

{1} untuk angka 1

{ENTER} untuk tombol ENTER

{F1} untuk tombol F1

sepesial karakter diapit dengan kurung kurawal

contoh: {^} untuk tanda ^ yang memiliki arti berbeda dengan "^" atau CTRL

 

spesial tombol hanya 3 yaitu:

tombol CTRL diwakili dengan "^"

tombol Shift diwakili dengan "+"

tombol Alt diwakili dengan "%"

 

contoh untuk men-disable tombol CTRL C (copy melalui keyboard)

 

Private Sub Worksheet_Activate()

    Application.OnKey "^{c}", ""

End Sub

 

syntaxnya:

 

Application.OnKey nama_tombolnya, parameternya

 

Salam,

 

-Miss Jan Raisin-

 

Pada 2 Agustus 2013 13.41, Heru Safrudin <[hidden email]> menulis:

 

Dear Master,

 

Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?

Ceritanya saya pingin mencegah/mengunci tombol tertentu.

 

Terima kasih

 

 

 

 




image001.gif (64K) Download Attachment
image002.png (3K) Download Attachment
image003.gif (1K) Download Attachment
image004.gif (4K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

Kid
Administrator
Selain dengan data validation yang memiliki banyak keterbatasan, bisa juga
dengan manfaatkan event change milik worksheet, misal :

dim rng as range
application.enableevents=false
for each rng in target
    select case rng.column
    case 1
                   if not isnumeric(rng.value) then
                            rng.clearcontents
                   endif
    case 2
                   if isnumeric(rng.value) then
                           rng.clearcontents
                   endif
    end select
 next rng
application.enableevents=true

:)
supaya yang kondang gak suma IF saja


Wassalam,
Kid.




2013/8/2 Heru Safrudin <[hidden email]>

> **
>
>
>  Misalkan kolom A hanya boleh diisi dengan numeric****
>
> Dan kolom B hanya boleh diisii string****
>
> ** **
>
> Bagaimana code-nya ?****
>
> ** **
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
>  <http://www.carajawab.com/?id=heru.safrudin>****
>
>  ****
>   ------------------------------
>
> *From:* [hidden email] [mailto:
> [hidden email]] *On Behalf Of *Jan Raisin
> *Sent:* 02 Agustus 2013 14:32
> *To:* [hidden email]
> *Subject:* Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja****
>
> ** **
>
>   ****
>
> pak Heru,****
>
> ** **
>
> coba gunakan application.onkey****
>
> setiap tombol diwakili oleh tombol tersebut****
>
> ** **
>
> misal:****
>
> {a} untuk huruf a****
>
> {1} untuk angka 1****
>
> {ENTER} untuk tombol ENTER****
>
> {F1} untuk tombol F1****
>
> sepesial karakter diapit dengan kurung kurawal****
>
> contoh: {^} untuk tanda ^ yang memiliki arti berbeda dengan "^" atau CTRL*
> ***
>
> ** **
>
> spesial tombol hanya 3 yaitu:****
>
> tombol CTRL diwakili dengan "^"****
>
> tombol Shift diwakili dengan "+"****
>
> tombol Alt diwakili dengan "%"****
>
> ** **
>
> contoh untuk men-disable tombol CTRL C (copy melalui keyboard) ****
>
> ** **
>
> Private Sub Worksheet_Activate()****
>
>     Application.OnKey "^{c}", ""****
>
> End Sub****
>
> ** **
>
> syntaxnya:****
>
> ** **
>
> Application.OnKey nama_tombolnya, parameternya****
>
> ** **
>
> Salam,****
>
> ** **
>
> -Miss Jan Raisin-****
>
> ** **
>
> Pada 2 Agustus 2013 13.41, Heru Safrudin <[hidden email]> menulis:**
> **
>
>   ****
>
> Dear Master,****
>
>  ****
>
> Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?****
>
> Ceritanya saya pingin mencegah/mengunci tombol tertentu.****
>
>  ****
>
> Terima kasih****
>
>  ****
>
>  ****
>
>  ****
>
> ** **
>
>  
>

image004.gif (4K) Download Attachment
image001.gif (64K) Download Attachment
image003.gif (1K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

RE: [belajar-excel] Mendeteksi keystroke pada lembar kerja

Heru Safrudin
Oo gitu ya, kirain bisa kayak event Keydown di userform

 

Ok  Terima kasih Mr. dan Miss

 

 

 <ymsgr:sendIM?heru.safrudin>  

 

 

 

 

 


 <http://www.carajawab.com/?id=heru.safrudin>

 

  _____  

From: [hidden email] [mailto:[hidden email]]
On Behalf Of Mr. Kid
Sent: 02 Agustus 2013 16:44
To: BeExcel
Subject: Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

 

 

Selain dengan data validation yang memiliki banyak keterbatasan, bisa juga
dengan manfaatkan event change milik worksheet, misal :

dim rng as range

application.enableevents=false

for each rng in target

    select case rng.column

    case 1

                   if not isnumeric(rng.value) then

                            rng.clearcontents

                   endif

    case 2

                   if isnumeric(rng.value) then

                           rng.clearcontents

                   endif

    end select

next rng
application.enableevents=true

:)

supaya yang kondang gak suma IF saja



Wassalam,

Kid.

 

 

2013/8/2 Heru Safrudin <[hidden email]>

 

Misalkan kolom A hanya boleh diisi dengan numeric

Dan kolom B hanya boleh diisii string

 

Bagaimana code-nya ?

 

 

 

 

 

 

 




 <http://www.carajawab.com/?id=heru.safrudin>

 

  _____  

From: [hidden email] [mailto:[hidden email]]
On Behalf Of Jan Raisin
Sent: 02 Agustus 2013 14:32
To: [hidden email]
Subject: Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

 

 

pak Heru,

 

coba gunakan application.onkey

setiap tombol diwakili oleh tombol tersebut

 

misal:

{a} untuk huruf a

{1} untuk angka 1

{ENTER} untuk tombol ENTER

{F1} untuk tombol F1

sepesial karakter diapit dengan kurung kurawal

contoh: {^} untuk tanda ^ yang memiliki arti berbeda dengan "^" atau CTRL

 

spesial tombol hanya 3 yaitu:

tombol CTRL diwakili dengan "^"

tombol Shift diwakili dengan "+"

tombol Alt diwakili dengan "%"

 

contoh untuk men-disable tombol CTRL C (copy melalui keyboard)

 

Private Sub Worksheet_Activate()

    Application.OnKey "^{c}", ""

End Sub

 

syntaxnya:

 

Application.OnKey nama_tombolnya, parameternya

 

Salam,

 

-Miss Jan Raisin-

 

Pada 2 Agustus 2013 13.41, Heru Safrudin <[hidden email]> menulis:

 

Dear Master,

 

Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?

Ceritanya saya pingin mencegah/mengunci tombol tertentu.

 

Terima kasih

 

 

 

 

 




image001.gif (64K) Download Attachment
image002.png (3K) Download Attachment
image005.gif (1K) Download Attachment
image006.gif (1K) Download Attachment
image007.gif (4K) Download Attachment