15 New Messages
Digest #2432
Messages
Thu Jul 18, 2013 7:26 am (PDT) . Posted by:
"summonery" summonery
Berjalan dengan baik di komputer saya,
[tes]
Coba dilampirkan file dummy-nya... agar sama-sama tau maksud sebenarnya.
--- In belajar-excel@yahoogroups.com , "abdul" wrote:
>
> Assalamualaikum Suhu Jan
>
> makasih untuk pencerahannya
> tujuan saya pake sub worksheet calculate sebenarnya karena sub
worksheet change ga bisa ke triger apabila pada range tidak dilakukan
perubahan (meskipun dengan data validation) kecuali jika dilakukan
manual (bahkan hanya dobel klik)
> semua data di range "B" berubah-ubah otomatis mengikuti list data
validation (anggap saja di cell A1)
> event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
(ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell
manapun)
>
> saya coba dengan code ini
> Private Sub Worksheet_Calculate()
> Dim Target As Range
>
> Set Target = Range("B:B")
> For Each isi In Target.Cells
> If Not Intersect(Target, Range("B:B")) Is Nothing Then
> MsgBox ("test")
> End If
> Next isi
> End Sub
> muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti
dengan coding autofit (Range("B3:B10").EntireRow.AutoFit) macro ga bisa
menjalankan, entirerow.autofit nya
>
> mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih kado
deeehh...)
>
> wasalamualaikum
>
> --- In belajar-excel@yahoogroups.com , Jan Raisin miss.jan.raisin@
wrote:
> >
> >
> > æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö
æóÈóÑóßóÇÊõåõ
> >
> > Mungkin seperti ini:
> >
> >
> > Private Sub Worksheet_Calculate() >> baris ini diganti menjadi
> >
> > Private Sub Worksheet_Change()
> > Dim target As Range >> baris ini dihapus
> > Set target = Range("B:B")
> > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > Range("B3:B10").EntireRow.AutoFit >>> yang ini Jan bingung nih..
(nyambung
> > ke bawah ya..)
> > End If
> > End Sub
> >
> > kalo mau bikin otomatis lebar kolomnya maka pakai script berikut:
> > range("b:b").columns.autofit
> >
> > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka pakai
script
> > yang ini
> > with range("b3:b10")
> > .wraptext = true
> > .entirerow.autofit
> > end with
> >
> >
> > æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> >
> > -Miss Jan Raisin-
> >
> >
> > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
*hanya*ke
> > belajar-excel@yahoogroups.com bukan dikirim japri ke email
pribadi
> > member milis;
> > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
dengan
> > orang-orang yang sabar QS 2:153;
> > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> > ditanyakan, mau dan berani untuk membantu, tanpa mengharap
imbalan dari
> > Thread Starter (TS) atau Post Starter (PS), selain itu
Be-Excelller juga
> > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak selalu
> > bisa on line setiap saat;
> > - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> > Be-Exceller dan menjadi amalan yang baik untuk tabungan di
akhirat nanti.
> > Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
> >
> >
> >
> > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah@ menulis:
> >
> > > **
> > >
> > >
> > > Assalamualaikum Wahai Suhu Excel
> > >
> > > mohon pencerahan
> > > saya coba input code ini di macro excel saya
> > >
> > >
> > > Private Sub Worksheet_Calculate()
> > > Dim target As Range
> > > Set target = Range("B:B")
> > > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > > Range("B3:B10").EntireRow.AutoFit
> > > End If
> > > End Sub
> > >
> > > tapi ga berjalan sebagaimana mestinya (row yang menglami perubahan
value,
> > > tidak autofit sendiri)
> > >
> > > untuk informasi, data di range "B" terupdate lewat lookup yang di
triger
> > > oleh data validation
> > >
> > >
> >
>
[tes]
Coba dilampirkan file dummy-nya... agar sama-sama tau maksud sebenarnya.
--- In belajar-excel@
>
> Assalamualaikum Suhu Jan
>
> makasih untuk pencerahannya
> tujuan saya pake sub worksheet calculate sebenarnya karena sub
worksheet change ga bisa ke triger apabila pada range tidak dilakukan
perubahan (meskipun dengan data validation) kecuali jika dilakukan
manual (bahkan hanya dobel klik)
> semua data di range "B" berubah-ubah otomatis mengikuti list data
validation (anggap saja di cell A1)
> event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
(ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell
manapun)
>
> saya coba dengan code ini
> Private Sub Worksheet_Calculate
> Dim Target As Range
>
> Set Target = Range("
> For Each isi In Target.Cells
> If Not Intersect(Target, Range("
> MsgBox ("test"
> End If
> Next isi
> End Sub
> muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti
dengan coding autofit (Range("
menjalankan, entirerow.autofit nya
>
> mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih kado
deeehh...)
>
> wasalamualaikum
>
> --- In belajar-excel@
wrote:
> >
> >
> > æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö
æóÈóÑóßóÇÊõåõ
> >
> > Mungkin seperti ini:
> >
> >
> > Private Sub Worksheet_Calculate
> >
> > Private Sub Worksheet_Change(
> > Dim target As Range >> baris ini dihapus
> > Set target = Range("
> > If Not Intersect(target, Range("
> > Range("
(nyambung
> > ke bawah ya..)
> > End If
> > End Sub
> >
> > kalo mau bikin otomatis lebar kolomnya maka pakai script berikut:
> > range("
> >
> > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka pakai
script
> > yang ini
> > with range("
> > .wraptext = true
> > .entirerow.autofit
> > end with
> >
> >
> > æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> >
> > -Miss Jan Raisin-
> >
> >
> > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
*hanya*ke
> > belajar-excel@
pribadi
> > member milis;
> > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
dengan
> > orang-orang yang sabar QS 2:153;
> > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> > ditanyakan, mau dan berani untuk membantu, tanpa mengharap
imbalan dari
> > Thread Starter (TS) atau Post Starter (PS), selain itu
Be-Excelller juga
> > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak selalu
> > bisa on line setiap saat;
> > - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> > Be-Exceller dan menjadi amalan yang baik untuk tabungan di
akhirat nanti.
> > Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
> >
> >
> >
> > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah
> >
> > > **
> > >
> > >
> > > Assalamualaikum Wahai Suhu Excel
> > >
> > > mohon pencerahan
> > > saya coba input code ini di macro excel saya
> > >
> > >
> > > Private Sub Worksheet_Calculate
> > > Dim target As Range
> > > Set target = Range("
> > > If Not Intersect(target, Range("
> > > Range("
> > > End If
> > > End Sub
> > >
> > > tapi ga berjalan sebagaimana mestinya (row yang menglami perubahan
value,
> > > tidak autofit sendiri)
> > >
> > > untuk informasi, data di range "B" terupdate lewat lookup yang di
triger
> > > oleh data validation
> > >
> > >
> >
>
Thu Jul 18, 2013 6:17 pm (PDT) . Posted by:
"Jan Raisin"
oot dikit..
pak Anton, tolong ajarin Jan gimana bikin video tampilan seperti di email
pak Anton.. insya ALLAH bermanfaat saat Jan berbagi solusi dengan member
yang lain..
idem dengan pak Anton.. script berjalan dengan baik di lapie Jan
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 18 Juli 2013 21.26, summonery <summonery@yahoo.com > menulis:
> **
>
>
> Berjalan dengan baik di komputer saya,
>
> [image: tes]
>
>
> Coba dilampirkan file dummy-nya... agar sama-sama tau maksud sebenarnya.
>
>
>
> --- In belajar-excel@yahoogroups.com , "abdul" wrote:
> >
> > Assalamualaikum Suhu Jan
> >
> > makasih untuk pencerahannya
> > tujuan saya pake sub worksheet calculate sebenarnya karena sub worksheet
> change ga bisa ke triger apabila pada range tidak dilakukan perubahan
> (meskipun dengan data validation) kecuali jika dilakukan manual (bahkan
> hanya dobel klik)
> > semua data di range "B" berubah-ubah otomatis mengikuti list data
> validation (anggap saja di cell A1)
> > event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
> (ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell manapun)
> >
> > saya coba dengan code ini
> > Private Sub Worksheet_Calculate()
> > Dim Target As Range
> >
> > Set Target = Range("B:B")
> > For Each isi In Target.Cells
> > If Not Intersect(Target, Range("B:B")) Is Nothing Then
> > MsgBox ("test")
> > End If
> > Next isi
> > End Sub
> > muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti dengan
> coding autofit (Range("B3:B10").EntireRow.AutoFit) macro ga bisa
> menjalankan, entirerow.autofit nya
> >
> > mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih kado
> deeehh...)
> >
> > wasalamualaikum
> >
> > --- In belajar-excel@yahoogroups.com , Jan Raisin miss.jan.raisin@ wrote:
> > >
> > >
> > > æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> > >
> > > Mungkin seperti ini:
> > >
> > >
> > > Private Sub Worksheet_Calculate() >> baris ini diganti menjadi
> > >
> > > Private Sub Worksheet_Change()
> > > Dim target As Range >> baris ini dihapus
> > > Set target = Range("B:B")
> > > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > > Range("B3:B10").EntireRow.AutoFit >>> yang ini Jan bingung nih..
> (nyambung
> > > ke bawah ya..)
> > > End If
> > > End Sub
> > >
> > > kalo mau bikin otomatis lebar kolomnya maka pakai script berikut:
> > > range("b:b").columns.autofit
> > >
> > > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka pakai
> script
> > > yang ini
> > > with range("b3:b10")
> > > .wraptext = true
> > > .entirerow.autofit
> > > end with
> > >
> > >
> > > æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> > >
> > > -Miss Jan Raisin-
> > >
> > >
> > > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *hanya*ke
> > > belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> > > member milis;
> > > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan
> > > orang-orang yang sabar QS 2:153;
> > > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> > > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> > > ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> > > Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller
> juga
> > > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak
> selalu
> > > bisa on line setiap saat;
> > > - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> > > Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti.
> > > Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
> > >
> > >
> > >
> > > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah@ menulis:
>
> > >
> > > > **
> > > >
> > > >
> > > > Assalamualaikum Wahai Suhu Excel
> > > >
> > > > mohon pencerahan
> > > > saya coba input code ini di macro excel saya
> > > >
> > > >
> > > > Private Sub Worksheet_Calculate()
> > > > Dim target As Range
> > > > Set target = Range("B:B")
> > > > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > > > Range("B3:B10").EntireRow.AutoFit
> > > > End If
> > > > End Sub
> > > >
> > > > tapi ga berjalan sebagaimana mestinya (row yang menglami perubahan
> value,
> > > > tidak autofit sendiri)
> > > >
> > > > untuk informasi, data di range "B" terupdate lewat lookup yang di
> triger
> > > > oleh data validation
> > > >
> > > >
> > >
> >
>
>
>
pak Anton, tolong ajarin Jan gimana bikin video tampilan seperti di email
pak Anton.. insya ALLAH bermanfaat saat Jan berbagi solusi dengan member
yang lain..
idem dengan pak Anton.. script berjalan dengan baik di lapie Jan
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Pada 18 Juli 2013 21.26, summonery <summonery@yahoo.
> **
>
>
> Berjalan dengan baik di komputer saya,
>
> [image: tes]
>
>
> Coba dilampirkan file dummy-nya... agar sama-sama tau maksud sebenarnya.
>
>
>
> --- In belajar-excel@
> >
> > Assalamualaikum Suhu Jan
> >
> > makasih untuk pencerahannya
> > tujuan saya pake sub worksheet calculate sebenarnya karena sub worksheet
> change ga bisa ke triger apabila pada range tidak dilakukan perubahan
> (meskipun dengan data validation) kecuali jika dilakukan manual (bahkan
> hanya dobel klik)
> > semua data di range "B" berubah-ubah otomatis mengikuti list data
> validation (anggap saja di cell A1)
> > event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
> (ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell manapun)
> >
> > saya coba dengan code ini
> > Private Sub Worksheet_Calculate
> > Dim Target As Range
> >
> > Set Target = Range("
> > For Each isi In Target.Cells
> > If Not Intersect(Target, Range("
> > MsgBox ("test"
> > End If
> > Next isi
> > End Sub
> > muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti dengan
> coding autofit (Range("
> menjalankan, entirerow.autofit nya
> >
> > mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih kado
> deeehh...)
> >
> > wasalamualaikum
> >
> > --- In belajar-excel@
> > >
> > >
> > > æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> > >
> > > Mungkin seperti ini:
> > >
> > >
> > > Private Sub Worksheet_Calculate
> > >
> > > Private Sub Worksheet_Change(
> > > Dim target As Range >> baris ini dihapus
> > > Set target = Range("
> > > If Not Intersect(target, Range("
> > > Range("
> (nyambung
> > > ke bawah ya..)
> > > End If
> > > End Sub
> > >
> > > kalo mau bikin otomatis lebar kolomnya maka pakai script berikut:
> > > range("
> > >
> > > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka pakai
> script
> > > yang ini
> > > with range("
> > > .wraptext = true
> > > .entirerow.autofit
> > > end with
> > >
> > >
> > > æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> > >
> > > -Miss Jan Raisin-
> > >
> > >
> > > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *hanya*ke
> > > belajar-excel@
> > > member milis;
> > > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan
> > > orang-orang yang sabar QS 2:153;
> > > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> > > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> > > ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> > > Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller
> juga
> > > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak
> selalu
> > > bisa on line setiap saat;
> > > - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> > > Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti.
> > > Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
> > >
> > >
> > >
> > > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah
>
> > >
> > > > **
> > > >
> > > >
> > > > Assalamualaikum Wahai Suhu Excel
> > > >
> > > > mohon pencerahan
> > > > saya coba input code ini di macro excel saya
> > > >
> > > >
> > > > Private Sub Worksheet_Calculate
> > > > Dim target As Range
> > > > Set target = Range("
> > > > If Not Intersect(target, Range("
> > > > Range("
> > > > End If
> > > > End Sub
> > > >
> > > > tapi ga berjalan sebagaimana mestinya (row yang menglami perubahan
> value,
> > > > tidak autofit sendiri)
> > > >
> > > > untuk informasi, data di range "B" terupdate lewat lookup yang di
> triger
> > > > oleh data validation
> > > >
> > > >
> > >
> >
>
>
>
Thu Jul 18, 2013 6:59 pm (PDT) . Posted by:
"summonery" summonery
Hehehe,, caranya mudah kok miss Jan,Ini tahapan yang saya
lakukan:Terlebih dahulu file rekaman/video diconvert menjadi format
.gifSetelah itu upload file .gif ke internet.Buka url imagenya, kemudian
lakukan dragging image yang terpampang di browser ke tab browser dari
milis dan taruh di kotak yang digunakan untuk menulis postingan.Selesai
dan siap dikirim, di-preview terlebih dahulu untuk meyakinkannya.
NB: Namun saat ini Nabble belum dapat menampilkan image yang dihasilkan
dengan cara tersebut.
>semoga bermanfaat
Sambil berharap miss Jan, moderator atau member yang lain ada yang
bersedia membuatkan tutorial yang lebih jelas dan dishared pada file
milis...
--- In belajar-excel@yahoogroups.com , Jan Raisin wrote:
>
> oot dikit..
>
> pak Anton, tolong ajarin Jan gimana bikin video tampilan seperti di
email
> pak Anton.. insya ALLAH bermanfaat saat Jan berbagi solusi dengan
member
> yang lain..
>
> idem dengan pak Anton.. script berjalan dengan baik di lapie Jan
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
*hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
dengan
> orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan
dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller
juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
nanti.
> اَمÙين يَا رَبَÙ`
الÙ'عَالَمÙÙŠÙ'Ù†
>
>
>
> Pada 18 Juli 2013 21.26, summonery summonery@... menulis:
>
> > **
> >
> >
> > Berjalan dengan baik di komputer saya,
> >
> > [image: tes]
> >
> >
> > Coba dilampirkan file dummy-nya... agar sama-sama tau maksud
sebenarnya.
> >
> >
> >
> > --- In belajar-excel@yahoogroups.com , "abdul" wrote:
> > >
> > > Assalamualaikum Suhu Jan
> > >
> > > makasih untuk pencerahannya
> > > tujuan saya pake sub worksheet calculate sebenarnya karena sub
worksheet
> > change ga bisa ke triger apabila pada range tidak dilakukan
perubahan
> > (meskipun dengan data validation) kecuali jika dilakukan manual
(bahkan
> > hanya dobel klik)
> > > semua data di range "B" berubah-ubah otomatis mengikuti list data
> > validation (anggap saja di cell A1)
> > > event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
> > (ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell
manapun)
> > >
> > > saya coba dengan code ini
> > > Private Sub Worksheet_Calculate()
> > > Dim Target As Range
> > >
> > > Set Target = Range("B:B")
> > > For Each isi In Target.Cells
> > > If Not Intersect(Target, Range("B:B")) Is Nothing Then
> > > MsgBox ("test")
> > > End If
> > > Next isi
> > > End Sub
> > > muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti
dengan
> > coding autofit (Range("B3:B10").EntireRow.AutoFit) macro ga bisa
> > menjalankan, entirerow.autofit nya
> > >
> > > mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih
kado
> > deeehh...)
> > >
> > > wasalamualaikum
> > >
> > > --- In belajar-excel@yahoogroups.com , Jan Raisin miss.jan.raisin@
wrote:
> > > >
> > > >
> > > > æóÚóáóÃúßõãõ áÃ"óøáÇóãõ
æóÃ`óÃúãóÉõ Çááåö
æóÈóÃ`óßóÇÊõåõ
> > > >
> > > > Mungkin seperti ini:
> > > >
> > > >
> > > > Private Sub Worksheet_Calculate() >> baris ini diganti menjadi
> > > >
> > > > Private Sub Worksheet_Change()
> > > > Dim target As Range >> baris ini dihapus
> > > > Set target = Range("B:B")
> > > > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > > > Range("B3:B10").EntireRow.AutoFit >>> yang ini Jan bingung nih..
> > (nyambung
> > > > ke bawah ya..)
> > > > End If
> > > > End Sub
> > > >
> > > > kalo mau bikin otomatis lebar kolomnya maka pakai script
berikut:
> > > > range("b:b").columns.autofit
> > > >
> > > > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka
pakai
> > script
> > > > yang ini
> > > > with range("b3:b10")
> > > > .wraptext = true
> > > > .entirerow.autofit
> > > > end with
> > > >
> > > >
> > > > æóÃ"óøáÇóãõ ÚóáóÃúßõãú
æóÃ`óÃúãóÉõ Çááåö
æóÈóÃ`óßóÇÊõåõ
> > > >
> > > > -Miss Jan Raisin-
> > > >
> > > >
> > > > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> > *hanya*ke
> > > > belajar-excel@yahoogroups.com bukan dikirim japri ke email
pribadi
> > > > member milis;
> > > > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH
beserta
> > dengan
> > > > orang-orang yang sabar QS 2:153;
> > > > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> > > > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> > > > ditanyakan, mau dan berani untuk membantu, tanpa mengharap
imbalan dari
> > > > Thread Starter (TS) atau Post Starter (PS), selain itu
Be-Excelller
> > juga
> > > > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak
> > selalu
> > > > bisa on line setiap saat;
> > > > - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> > > > Be-Exceller dan menjadi amalan yang baik untuk tabungan di
akhirat
> > nanti.
> > > > ÇóãöÃä ÃóÇ Ã`óÈóø
ÇáúÚóÇáóãöÃúä
> > > >
> > > >
> > > >
> > > > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah@ menulis:
> >
> > > >
> > > > > **
> > > > >
> > > > >
> > > > > Assalamualaikum Wahai Suhu Excel
> > > > >
> > > > > mohon pencerahan
> > > > > saya coba input code ini di macro excel saya
> > > > >
> > > > >
> > > > > Private Sub Worksheet_Calculate()
> > > > > Dim target As Range
> > > > > Set target = Range("B:B")
> > > > > If Not Intersect(target, Range("B:B")) Is Nothing Then
> > > > > Range("B3:B10").EntireRow.AutoFit
> > > > > End If
> > > > > End Sub
> > > > >
> > > > > tapi ga berjalan sebagaimana mestinya (row yang menglami
perubahan
> > value,
> > > > > tidak autofit sendiri)
> > > > >
> > > > > untuk informasi, data di range "B" terupdate lewat lookup yang
di
> > triger
> > > > > oleh data validation
> > > > >
> > > > >
> > > >
> > >
> >
> >
> >
>
lakukan:Terlebih dahulu file rekaman/video diconvert menjadi format
.gifSetelah itu upload file .gif ke internet.Buka url imagenya, kemudian
lakukan dragging image yang terpampang di browser ke tab browser dari
milis dan taruh di kotak yang digunakan untuk menulis postingan.Selesai
dan siap dikirim, di-preview terlebih dahulu untuk meyakinkannya.
NB: Namun saat ini Nabble belum dapat menampilkan image yang dihasilkan
dengan cara tersebut.
>semoga bermanfaat
Sambil berharap miss Jan, moderator atau member yang lain ada yang
bersedia membuatkan tutorial yang lebih jelas dan dishared pada file
milis...
--- In belajar-excel@
>
> oot dikit..
>
> pak Anton, tolong ajarin Jan gimana bikin video tampilan seperti di
> pak Anton.. insya ALLAH bermanfaat saat Jan berbagi solusi dengan
member
> yang lain..
>
> idem dengan pak Anton.. script berjalan dengan baik di lapie Jan
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
*hanya*ke
> belajar-excel@
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
dengan
> orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan
dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller
juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
nanti.
> اَمÙين يَا رَبَÙ`
الÙ'عَالَمÙÙŠÙ'Ù†
>
>
>
> Pada 18 Juli 2013 21.26, summonery summonery@..
>
> > **
> >
> >
> > Berjalan dengan baik di komputer saya,
> >
> > [image: tes]
> >
> >
> > Coba dilampirkan file dummy-nya... agar sama-sama tau maksud
sebenarnya.
> >
> >
> >
> > --- In belajar-excel@
> > >
> > > Assalamualaikum Suhu Jan
> > >
> > > makasih untuk pencerahannya
> > > tujuan saya pake sub worksheet calculate sebenarnya karena sub
worksheet
> > change ga bisa ke triger apabila pada range tidak dilakukan
perubahan
> > (meskipun dengan data validation) kecuali jika dilakukan manual
(bahkan
> > hanya dobel klik)
> > > semua data di range "B" berubah-ubah otomatis mengikuti list data
> > validation (anggap saja di cell A1)
> > > event prosedurnya baru bisa jalan kalau sub worksheetnya calculate
> > (ketika excel mengkalkulasi atau mengkalkulasi ulang value di cell
manapun)
> > >
> > > saya coba dengan code ini
> > > Private Sub Worksheet_Calculate
> > > Dim Target As Range
> > >
> > > Set Target = Range("
> > > For Each isi In Target.Cells
> > > If Not Intersect(Target, Range("
> > > MsgBox ("test"
> > > End If
> > > Next isi
> > > End Sub
> > > muncul tu msgbox test-nya, tapi begitu code msgbox itu saya ganti
dengan
> > coding autofit (Range("
> > menjalankan, entirerow.autofit nya
> > >
> > > mungkin suhu bisa membantu saya??? pliiizzzzz (ntar saya kasih
kado
> > deeehh...)
> > >
> > > wasalamualaikum
> > >
> > > --- In belajar-excel@
wrote:
> > > >
> > > >
> > > > æóÚóáóÃúßõãõ áÃ"óøáÇóãõ
æóÃ`óÃúãóÉõ Çááåö
æóÈóÃ`óßóÇÊõåõ
> > > >
> > > > Mungkin seperti ini:
> > > >
> > > >
> > > > Private Sub Worksheet_Calculate
> > > >
> > > > Private Sub Worksheet_Change(
> > > > Dim target As Range >> baris ini dihapus
> > > > Set target = Range("
> > > > If Not Intersect(target, Range("
> > > > Range("
> > (nyambung
> > > > ke bawah ya..)
> > > > End If
> > > > End Sub
> > > >
> > > > kalo mau bikin otomatis lebar kolomnya maka pakai script
berikut:
> > > > range("
> > > >
> > > > tapi kalo yang mau diubah otomatis adalah tinggi barisnya maka
pakai
> > script
> > > > yang ini
> > > > with range("
> > > > .wraptext = true
> > > > .entirerow.autofit
> > > > end with
> > > >
> > > >
> > > > æóÃ"óøáÇóãõ ÚóáóÃúßõãú
æóÃ`óÃúãóÉõ Çááåö
æóÈóÃ`óßóÇÊõåõ
> > > >
> > > > -Miss Jan Raisin-
> > > >
> > > >
> > > > - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> > *hanya*ke
> > > > belajar-excel@
pribadi
> > > > member milis;
> > > > - Jika pertanyaan lama direspon, bersabarlah karena ALLAH
beserta
> > dengan
> > > > orang-orang yang sabar QS 2:153;
> > > > - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
yang
> > > > memiliki waktu untuk on line, mengetahui solusi atas pertanyaan
yang
> > > > ditanyakan, mau dan berani untuk membantu, tanpa mengharap
imbalan dari
> > > > Thread Starter (TS) atau Post Starter (PS), selain itu
Be-Excelller
> > juga
> > > > memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga
tidak
> > selalu
> > > > bisa on line setiap saat;
> > > > - Semoga semangat berbagi dan membantu semakin meningkat di
kalangan
> > > > Be-Exceller dan menjadi amalan yang baik untuk tabungan di
akhirat
> > nanti.
> > > > ÇóãöÃä ÃóÇ Ã`óÈóø
ÇáúÚóÇáóãöÃúä
> > > >
> > > >
> > > >
> > > > Pada 18 Juli 2013 12.44, abdul abduldedysubhansyah
> >
> > > >
> > > > > **
> > > > >
> > > > >
> > > > > Assalamualaikum Wahai Suhu Excel
> > > > >
> > > > > mohon pencerahan
> > > > > saya coba input code ini di macro excel saya
> > > > >
> > > > >
> > > > > Private Sub Worksheet_Calculate
> > > > > Dim target As Range
> > > > > Set target = Range("
> > > > > If Not Intersect(target, Range("
> > > > > Range("
> > > > > End If
> > > > > End Sub
> > > > >
> > > > > tapi ga berjalan sebagaimana mestinya (row yang menglami
perubahan
> > value,
> > > > > tidak autofit sendiri)
> > > > >
> > > > > untuk informasi, data di range "B" terupdate lewat lookup yang
di
> > triger
> > > > > oleh data validation
> > > > >
> > > > >
> > > >
> > >
> >
> >
> >
>
Thu Jul 18, 2013 10:11 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Rekan2 Be-Excellers,
Sebagai penghargaan kepada Mbak Siti yang telah menurunkan macronya, saya mencoba memodifikasi Function_AngkaThok yang pernah beliau buat untuk mengenang beliau yang telah beristirahat dengan tenang hampir setahun lalu.
Terlampir adalah filenya yang berisi Macro.
Salam,
HK
Sebagai penghargaan kepada Mbak Siti yang telah menurunkan macronya, saya mencoba memodifikasi Function_AngkaThok yang pernah beliau buat untuk mengenang beliau yang telah beristirahat dengan tenang hampir setahun lalu.
Terlampir adalah filenya yang berisi Macro.
Salam,
HK
Thu Jul 18, 2013 12:10 pm (PDT) . Posted by:
"Eka Subyantara"
Alhamdulillah,
Ga kepikir ke situ he he he ... terima kasih Miss Jan, itu yang saya cari ...
Berbagi memang membahagiakan
= eka =
On 7/18/13, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> Pak Eka,
>
> Cara pencariannya tetap sama menggunakan Ctrl F
> tetapi biar cepat, nyarinya jangan satu per satu sheet.. tetapi cari
> langsung ke semua sheet
>
> caranya:
>>> klik kanan salah satu sheet (pastikan tidak ada yang hidden)
>>> klik Select All Sheets, sampai muncul tulisan Group setelah nama filenya
> [image: Gambar sisip 1]
>
>>> setelah itu cari dengan Ctrl F
>>> klik Find All
>
> jika ada lebih dari 1 hasil, coba klik setiap hasil yang tampil, otomatis
> akan berpindah ke masing-masing sheet yang sesuai
>
> oia.. kalo sudah ketemu, hilangkan groupnya dengan nge-klik salah satu
> sheet yang lain.. kalo tidak pada saat mengetik di salah satu sheet maka
> sheet yang lain juga akan ikut terisi hasil ketikan tersebut
>
> æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
> orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak
> selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti.
> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>
>
>
> Pada 18 Juli 2013 13.17, Eka Subyantara <ekasubyantara@gmail.com > menulis:
>
>> **
>>
>>
>> Ass.wr.wb.
>> Selamat shaum bagi yang menunaikannya.
>>
>> Saudara-saudaraku,
>> Saya sering berhadapan dengan file kerja excel yang sheetnya banyak
>> dan mengandung banyak link ke workbook yang lain.
>>
>> Persoalan timbul ketika ingin mencari dengan cepat sheet/sel mana yang
>> mengandung link tersebut.
>>
>> Biasanya saya cari secara manual dengan Ctrl-F (search) pada setiap
>> sheet sampai ketemu.
>> Pernah juga ga ketemu-ketemu, rupanya selnya sedang ngumpet di kolom
>> hidden :-(
>>
>> Nah ... adakah cara cepat dan jitu selain cara manual yang menjemukan
>> itu?
>>
>> Mari kita berbagi
>> = eka =
>>
>>
>
Ga kepikir ke situ he he he ... terima kasih Miss Jan, itu yang saya cari ...
Berbagi memang membahagiakan
= eka =
On 7/18/13, Jan Raisin <miss.jan.raisin@
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> Pak Eka,
>
> Cara pencariannya tetap sama menggunakan Ctrl F
> tetapi biar cepat, nyarinya jangan satu per satu sheet.. tetapi cari
> langsung ke semua sheet
>
> caranya:
>>> klik kanan salah satu sheet (pastikan tidak ada yang hidden)
>>> klik Select All Sheets, sampai muncul tulisan Group setelah nama filenya
> [image: Gambar sisip 1]
>
>>> setelah itu cari dengan Ctrl F
>>> klik Find All
>
> jika ada lebih dari 1 hasil, coba klik setiap hasil yang tampil, otomatis
> akan berpindah ke masing-masing sheet yang sesuai
>
> oia.. kalo sudah ketemu, hilangkan groupnya dengan nge-klik salah satu
> sheet yang lain.. kalo tidak pada saat mengetik di salah satu sheet maka
> sheet yang lain juga akan ikut terisi hasil ketikan tersebut
>
> æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan
> *hanya*ke
> belajar-excel@
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
> orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak
> selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat
> nanti.
> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>
>
>
> Pada 18 Juli 2013 13.17, Eka Subyantara <ekasubyantara@
>
>> **
>>
>>
>> Ass.wr.wb.
>> Selamat shaum bagi yang menunaikannya.
>>
>> Saudara-saudaraku,
>> Saya sering berhadapan dengan file kerja excel yang sheetnya banyak
>> dan mengandung banyak link ke workbook yang lain.
>>
>> Persoalan timbul ketika ingin mencari dengan cepat sheet/sel mana yang
>> mengandung link tersebut.
>>
>> Biasanya saya cari secara manual dengan Ctrl-F (search) pada setiap
>> sheet sampai ketemu.
>> Pernah juga ga ketemu-ketemu, rupanya selnya sedang ngumpet di kolom
>> hidden :-(
>>
>> Nah ... adakah cara cepat dan jitu selain cara manual yang menjemukan
>> itu?
>>
>> Mari kita berbagi
>> = eka =
>>
>>
>
Thu Jul 18, 2013 9:38 pm (PDT) . Posted by:
"harry siswanto" hsiswanto
betul mr. Kid
tab Developer sudah muncul
tapi Design Mode, Gray... alias Disable...
bagaimana cara Enablenya ???
Regards
Harry Siswanto
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Thursday, July 18, 2013 5:51 PM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Apakah maksudnya menampilkan ribbon developer ?
>> menu File -> Options -> page (sisi kiri) Customize Ribbon -> cari disisi kanan layar dan centang item Developer -> OK sampai sheet
>> design mode ada di developer ribbon.Wassalam,
Kid.
2013/7/18 harry siswanto <hsiswanto@yahoo.com >
>Dear Senior...
>mau tanya nih,
>gimana sih caranya membuat Enable/Disable tombol Design Mode di MsExcel 2010 ??
>
> terimakasih sebelumnya
>
>Regards
>
>
>Harry Siswanto
tab Developer sudah muncul
tapi Design Mode, Gray... alias Disable...
bagaimana cara Enablenya ???
Regards
Harry Siswanto
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, July 18, 2013 5:51 PM
Subject: Re: [belajar-excel] tanya: MsExcel 2010
Apakah maksudnya menampilkan ribbon developer ?
>> menu File -> Options -> page (sisi kiri) Customize Ribbon -> cari disisi kanan layar dan centang item Developer -> OK sampai sheet
>> design mode ada di developer ribbon.Wassalam,
Kid.
2013/7/18 harry siswanto <hsiswanto@yahoo.
>Dear Senior...
>mau tanya nih,
>gimana sih caranya membuat Enable/Disable tombol Design Mode di MsExcel 2010 ??
>
> terimakasih sebelumnya
>
>Regards
>
>
>Harry Siswanto
Thu Jul 18, 2013 9:38 pm (PDT) . Posted by:
"jajang muhammad siddik" jajang_ms
Dear exceler,
Barangkali ada yang tau script untuk membuat sebuah userform akan close jika tidak digunakan dalam kurun waktu tertentu.
Salam,
JajangMS
Thu Jul 18, 2013 11:01 pm (PDT) . Posted by:
"De Premor" de.premor
Kalo di vb ada ocx timer, tetapi di vba timer tersebut tidak bisa
digunakan, jadi musti dibuat timerbaru yang support untuk vba
Terlampir ada ocx timer yang support untuk dipakai di VBA
Extract dulu file tersebut disebuah folder, misal di
*C:\sesuatu\dptimer.ocx*
Kemudian dari menu Startnya windows pilih menu Run, kemudian ketikkan
*regsvr32 "C:\sesuatu\dptimer.ocx"
*nanti akan keluar box informasi jika registrasi OCX sukses
*
Selanjutnya, buka VBA Excel
*Buka menu Tools- > Additional Control, aktifkan ocx controlnya
Nanti akan muncul Icon baru di tombol controll, setelah itu tinggal di
add aja ke form seperti biasa
Kalau sudah, buka file excel yang dilampirkan, kemudian coba jalankan
formnya
disitu saya buat waktunya 10 detik, setiap kali form mendapat fokus,
timer akan direset
Rgds,
[dp]
Pada 19/07/2013 8:13, jajang muhammad siddik menulis:
>
>
> Dear exceler,
>
> Barangkali ada yang tau script untuk membuat sebuah userform akan
> close jika tidak digunakan dalam kurun waktu tertentu.
>
> Salam,
>
> JajangMS
>
>
digunakan, jadi musti dibuat timerbaru yang support untuk vba
Terlampir ada ocx timer yang support untuk dipakai di VBA
Extract dulu file tersebut disebuah folder, misal di
*C:\sesuatu&#
Kemudian dari menu Startnya windows pilih menu Run, kemudian ketikkan
*regsvr32 "C:\
*nanti akan keluar box informasi jika registrasi OCX sukses
*
Selanjutnya, buka VBA Excel
*Buka menu Tools- > Additional Control, aktifkan ocx controlnya
Nanti akan muncul Icon baru di tombol controll, setelah itu tinggal di
add aja ke form seperti biasa
Kalau sudah, buka file excel yang dilampirkan, kemudian coba jalankan
formnya
disitu saya buat waktunya 10 detik, setiap kali form mendapat fokus,
timer akan direset
Rgds,
[dp]
Pada 19/07/2013 8:13, jajang muhammad siddik menulis:
>
>
> Dear exceler,
>
> Barangkali ada yang tau script untuk membuat sebuah userform akan
> close jika tidak digunakan dalam kurun waktu tertentu.
>
> Salam,
>
> JajangMS
>
>
Thu Jul 18, 2013 9:38 pm (PDT) . Posted by:
"Ferry" ferry_2005_skom
Dear Kusnadi,
Berikut code nya
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.TextColumn = 1
UserForm3.TextBox7.Value = ListBox1.Text
ListBox1.TextColumn = 2
UserForm3.TextBox8.Value = ListBox1.Text
Unload UserForm4
End Sub
ListBox1.TextColumn fungsinya untuk memindahkan fokus ke kolom di dalam listbox.
Letakkan di UserForm4.
Sedangkan di UserForm3 codenya ada yang saya hapus 1 baris sehingga menjadi :
Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm4.Show
End Sub
Semoga membantu.
Ferry
--- In belajar-excel@yahoogroups.com , Kusnadi Bin zain <kbinzain@...> wrote:
>
>
>
>
>
> ________________________________
>
>
>
> Dear : Exeller pakar
> >
> >
> >mohon bantuan koding ambil data dari UserForm lain, dan hasilnya ditaruh di Current UserForm gimana ya kodingnya.
> >ini saya coba kok patchnya katanya erorr..... (gak mudeng2 nih awak)
> >
> >
> >terima kasih atas bagi2 ilmunya selama ini.....
> >
> >kusnadi
>
Berikut code nya
Private Sub ListBox1_DblClick(
ListBox1.TextColumn = 1
UserForm3.TextBox7.
ListBox1.TextColumn = 2
UserForm3.TextBox8.
Unload UserForm4
End Sub
ListBox1.TextColumn fungsinya untuk memindahkan fokus ke kolom di dalam listbox.
Letakkan di UserForm4.
Sedangkan di UserForm3 codenya ada yang saya hapus 1 baris sehingga menjadi :
Private Sub TextBox7_DblClick(
UserForm4.Show
End Sub
Semoga membantu.
Ferry
--- In belajar-excel@
>
>
>
>
>
> ____________
>
>
>
> Dear : Exeller pakar
> >
> >
> >mohon bantuan koding ambil data dari UserForm lain, dan hasilnya ditaruh di Current UserForm gimana ya kodingnya.
> >ini saya coba kok patchnya katanya erorr..... (gak mudeng2 nih awak)
> >
> >
> >terima kasih atas bagi2 ilmunya selama ini.....
> >
> >kusnadi
>
Thu Jul 18, 2013 9:39 pm (PDT) . Posted by:
"Salam"
Dear Exceler,
Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
VBA form input sederhana.
Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
Terma kasih atas bantuannya.
Regads,
A.Salam
Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
VBA form input sederhana.
Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
Terma kasih atas bantuannya.
Regads,
A.Salam
Thu Jul 18, 2013 10:23 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak A.Salam,
Contoh terlampir untuk buka warnet murah meriah (perhitungannya per menit).
Salam,
HK
________________________________
From: Salam <aang@dmcti.co.id >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Friday, 19 July 2013, 10:26
Subject: [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
Dear Exceler,
Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
VBA form input sederhana.
Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
Terma kasih atas bantuannya.
Regads,
A.Salam
Contoh terlampir untuk buka warnet murah meriah (perhitungannya per menit).
Salam,
HK
____________
From: Salam <aang@dmcti.co.
To: Belajar Excel <belajar-excel@
Sent: Friday, 19 July 2013, 10:26
Subject: [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
Dear Exceler,
Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
VBA form input sederhana.
Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
Terma kasih atas bantuannya.
Regads,
A.Salam
Thu Jul 18, 2013 10:53 pm (PDT) . Posted by:
"Salam"
Dear Pak Hendrik,
Terima kasih untuk contoh yang dikirimkan.
Mohon kiranya tidak keberatan jika banyak pertanyaan yang saya haturkan.
Regards,
A.Salam
On 19/07/2013 12:23, hendrik karnadi wrote:
> Pak A.Salam,
> Contoh terlampir untuk buka warnet murah meriah (perhitungannya per
> menit).
>
> Salam,
> HK
>
> *From:* Salam <aang@dmcti.co.id >
> *To:* Belajar Excel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, 19 July 2013, 10:26
> *Subject:* [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
>
> Dear Exceler,
>
> Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
> VBA form input sederhana.
> Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
> Terma kasih atas bantuannya.
>
> Regads,
> A.Salam
>
>
>
Terima kasih untuk contoh yang dikirimkan.
Mohon kiranya tidak keberatan jika banyak pertanyaan yang saya haturkan.
Regards,
A.Salam
On 19/07/2013 12:23, hendrik karnadi wrote:
> Pak A.Salam,
> Contoh terlampir untuk buka warnet murah meriah (perhitungannya per
> menit).
>
> Salam,
> HK
>
> *From:* Salam <aang@dmcti.co.
> *To:* Belajar Excel <belajar-excel@
> *Sent:* Friday, 19 July 2013, 10:26
> *Subject:* [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
>
> Dear Exceler,
>
> Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
> VBA form input sederhana.
> Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
> Terma kasih atas bantuannya.
>
> Regads,
> A.Salam
>
>
>
Thu Jul 18, 2013 11:18 pm (PDT) . Posted by:
"Salam"
Dear Pak Hendrik,
Masih terlalu sulit untuk difahami.
Mungkin ada contoh yang lebih simple,yaitu tanpa perhitungan logika.
Terima kasih,
A.Salam
On 19/07/2013 12:23, hendrik karnadi wrote:
> Pak A.Salam,
> Contoh terlampir untuk buka warnet murah meriah (perhitungannya per
> menit).
>
> Salam,
> HK
>
> *From:* Salam <aang@dmcti.co.id >
> *To:* Belajar Excel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, 19 July 2013, 10:26
> *Subject:* [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
>
> Dear Exceler,
>
> Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
> VBA form input sederhana.
> Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
> Terma kasih atas bantuannya.
>
> Regads,
> A.Salam
>
>
>
Masih terlalu sulit untuk difahami.
Mungkin ada contoh yang lebih simple,yaitu tanpa perhitungan logika.
Terima kasih,
A.Salam
On 19/07/2013 12:23, hendrik karnadi wrote:
> Pak A.Salam,
> Contoh terlampir untuk buka warnet murah meriah (perhitungannya per
> menit).
>
> Salam,
> HK
>
> *From:* Salam <aang@dmcti.co.
> *To:* Belajar Excel <belajar-excel@
> *Sent:* Friday, 19 July 2013, 10:26
> *Subject:* [belajar-excel] Contoh VBA FORM INPUT SEDERHANA
>
> Dear Exceler,
>
> Saya ingin mencoba belajar VBA, dari exceler adakah yang punya contoh
> VBA form input sederhana.
> Mudah2an saya bisa belajar dari contoh yang sederhana tsb.
> Terma kasih atas bantuannya.
>
> Regads,
> A.Salam
>
>
>
Thu Jul 18, 2013 9:39 pm (PDT) . Posted by:
"Micky K" merau23
Dear Para Master XL,
Mohon pencerahannya, soalnya udah capek pikir dan cari logika excelnya gak nemu2.
Misal bagaimana agar beberapa data nama item dapat ke rekap ke sheet lain?
Maaf kalau ada yang salah2 dalam post ini, maklum post pertama dan masih newbi dalam excel.
Regards,
Terlampir filenya
Mohon pencerahannya, soalnya udah capek pikir dan cari logika excelnya gak nemu2.
Misal bagaimana agar beberapa data nama item dapat ke rekap ke sheet lain?
Maaf kalau ada yang salah2 dalam post ini, maklum post pertama dan masih newbi dalam excel.
Regards,
Terlampir filenya
Thu Jul 18, 2013 10:18 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hi Micky,
Contoh dan penjelasan terlampir.
Salam,
HK
________________________________
From: Micky K <merau23@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Friday, 19 July 2013, 11:19
Subject: [belajar-excel] Cara agar nama item ke rekap disheet lain
Dear Para Master XL,
Mohon pencerahannya, soalnya udah capek pikir dan cari logika excelnya gak nemu2.
Misal bagaimana agar beberapa data nama item dapat ke rekap ke sheet lain?
Maaf kalau ada yang salah2 dalam post ini, maklum post pertama dan masih newbi dalam excel.
Regards,
Terlampir filenya
Contoh dan penjelasan terlampir.
Salam,
HK
____________
From: Micky K <merau23@yahoo.
To: "belajar-excel@
Sent: Friday, 19 July 2013, 11:19
Subject: [belajar-excel] Cara agar nama item ke rekap disheet lain
Dear Para Master XL,
Mohon pencerahannya, soalnya udah capek pikir dan cari logika excelnya gak nemu2.
Misal bagaimana agar beberapa data nama item dapat ke rekap ke sheet lain?
Maaf kalau ada yang salah2 dalam post ini, maklum post pertama dan masih newbi dalam excel.
Regards,
Terlampir filenya
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar