6 Messages
Digest #3523
Messages
Fri Jul 31, 2015 4:41 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Deklarasi variabel iNext nya dimana dan bunyinya seperti apa ?
Wassalam,
Kid
2015-07-31 13:33 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Terima kasih Mr. Kid.
>
> Maaf sebelumnya, karena pekerjaan, baru bisa benimba ilmu kembali.
> Sebelumnya saya ucapkan selamat Idul Fitri 1436H. mohon maaf jika dalam
> menimba ilmu, tidak bisa kasih apa2 untuk menggantikan ilmu yg sangat
> bermanfaat selama ini, kecuali teriring doa semoga selalu diberi kesehatan,
> kesuksesan serta amal jariyah yang tiada terkira dan dimudahkan segala
> urusannya. Amin
>
> Saya mau bertanya kembali, saya sudah mempraktekan semua saran 1,2,3. Tapi
> saya tidak berhasil untuk yang nomor 1. Berikut saya sertakan macronya
>
> Private Sub RepeatNext_Click()
> With Sheets("EntryRepeatBlend").Range("CK3:CK100")
> Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
> If iNext Is Nothing Then
> Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
> iNext.Parent.Activate
> Else
> Set iNext = .Find(Me.RepeatBatch.Value, iNext, LookIn:=xlValues)
> iNext.Activate
> Application.Goto iNext, False
> End If
> End With
> End Sub
>
> Mungkin penalaran saya yang kurang menjangkau. mohon pencerahannya kembali
> Mr. Kid...,
>
> Salam
> Haris
>
>
>
> On Thursday, April 16, 2015 7:23 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Haris,
>
> 0. Mohon pencerahan dan solusinya
> >> Kali ini saya penasaran dengan usaha membuat proses find sendiri
> melalui userform dan tidak menekan CTRL F saja.
>
> 1. Dia akan terus mencari hingga data yang dicari tidak ditemukan lagi...,
> bagaimanakah macronya...?
> >> bagian parameter After dalam methods Find diisi dengan object range
> hasil pencarian sebelumnya.
> >> artinya, diperlukan sebuah variabel object ber-scope module (minimal)
> >> misal di baris ke-1 module (bukan di baris ke-1 prosedur loh), diberi
> deklarasi variabel hasil seperti (jika ada tulisan Option Explicit, maka
> letakkan di baris ke-2 module) :
> private rngHasilSebelumnya as range
>
> >> lalu buat proses find menjadi 2 cabang, yaitu ketika isi
> rngHasilSebelumnya masih kosong dan yang sudah isi
> if rnghasilsebelumnya is nothing then
> 'rngHasilSebelumnya masih kosong
> else
> 'rngHasilSebelumnya ada isinya
> endif
>
> >> di bagian rngHasilSebelumnya masih kosong, lakukan proses Find dengan
> bagian parameter After dikosongkan
> set rngHasilSebelumnya=sheets("nama sheet data").range("alamat
> data").find( nilainya , lookat:=xlvalues)
> >> di bagian rngHasilSebelumnya ada isinya, lakukan proses Find dengan
> bagian parameter after diisi dengan rngHasilSebelumnya
> set rngHasilSebelumnya=sheets("nama sheet data").range("alamat
> data").find( nilainya, rngHasilSebelumnya , lookat:=xlvalues)
>
> 2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo
> pake Application.Goto semua data yang berada diatasnya tidak tampak,
> bagaimanakah macronya?
> >> kalau begotu jangan pakai methods Goto
> >> ganti dengan rangkaian proses berikut :
> a. aktifkan sheet yang akan ditunjuk tersebut
> Sheets("nama sheetnya").activate
> b. aktifkan range yang akan ditunjuk tersebut
> Sheets("nama sheetnya").Range("alamat rangenya").activate
>
> >> kalau terkait dengan soal nomor 1 di atas, karena range hasil disimpan
> di variabel bernama rngHasilSebelumnya, maka kedua proses tersebut menjadi
> begini :
> a. aktifkan sheet yang akan ditunjuk tersebut
> rngHasilSebelumnya.parent.activate
> b. aktifkan range yang akan ditunjuk tersebut
> rngHasilSebelumnya.activate
>
> 3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
> menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
> menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
> >> pakai userform kan... set properti showmodal milik userform menjadi
> FALSE
> -> lihat di VBE -> aktifkan properties window (tekan F4 supaya
> muncul) -> double klik userformnya
> -> lihat properties window -> cari properti bernama ShowModal ->
> set nilainya menjadi FALSE -> save workbook
> >> atau saat akan menampilkan userform dengan methods Show, set parameter
> modal dengan FALSE
> nama_object_userformnya.show false
>
> Amin.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2015-04-16 17:39 GMT+10:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Assalamu'alaikum rekap master excel semua
>
> Mohon pencerahan dan solusinya para master excel semua...
> Kali ini saya penasaran dengan jendela Find pada excel, kenapa?
> 1. Dia akan terus mencari hingga data yang dicari tidak ditemukan lagi...,
> bagaimanakah macronya...? kalo pencarian yg saya lakukan selama ini dengan
> macro dibawah ini, dia hanya akan mencari 1 data, sementara jika data yang
> sama masih ada, maka tidak bisa dicari lagi
>
> With Sheets("EntrySuratPenyerahan").Range("A1:A1000")
> Set iNo = .Find(CariNoBP, After:=.Cells(1), LookIn:=xlValues)
> If Not iNo Is Nothing Then
> Application.Goto iNo, True
>
> 2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo
> pake Application.Goto semua data yang berada diatasnya tidak tampak,
> bagaimanakah macronya?
>
> 3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
> menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
> menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
>
> Terima kasih atas bantuannya, semoga tiap respon dan solusi mendapatkan
> balasan yang lebih baik dari Allah Swt. Amin
>
> Salam
> Haris
>
>
>
>
>
>
Wassalam,
Kid
2015-07-31 13:33 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Terima kasih Mr. Kid.
>
> Maaf sebelumnya, karena pekerjaan, baru bisa benimba ilmu kembali.
> Sebelumnya saya ucapkan selamat Idul Fitri 1436H. mohon maaf jika dalam
> menimba ilmu, tidak bisa kasih apa2 untuk menggantikan ilmu yg sangat
> bermanfaat selama ini, kecuali teriring doa semoga selalu diberi kesehatan,
> kesuksesan serta amal jariyah yang tiada terkira dan dimudahkan segala
> urusannya. Amin
>
> Saya mau bertanya kembali, saya sudah mempraktekan semua saran 1,2,3. Tapi
> saya tidak berhasil untuk yang nomor 1. Berikut saya sertakan macronya
>
> Private Sub RepeatNext_Click()
> With Sheets("EntryRepeatBlend").Range("CK3:CK100")
> Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
> If iNext Is Nothing Then
> Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
> iNext.Parent.Activate
> Else
> Set iNext = .Find(Me.RepeatBatch.Value, iNext, LookIn:=xlValues)
> iNext.Activate
> Application.Goto iNext, False
> End If
> End With
> End Sub
>
> Mungkin penalaran saya yang kurang menjangkau. mohon pencerahannya kembali
> Mr. Kid...,
>
> Salam
> Haris
>
>
>
> On Thursday, April 16, 2015 7:23 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Haris,
>
> 0. Mohon pencerahan dan solusinya
> >> Kali ini saya penasaran dengan usaha membuat proses find sendiri
> melalui userform dan tidak menekan CTRL F saja.
>
> 1. Dia akan terus mencari hingga data yang dicari tidak ditemukan lagi...,
> bagaimanakah macronya...?
> >> bagian parameter After dalam methods Find diisi dengan object range
> hasil pencarian sebelumnya.
> >> artinya, diperlukan sebuah variabel object ber-scope module (minimal)
> >> misal di baris ke-1 module (bukan di baris ke-1 prosedur loh), diberi
> deklarasi variabel hasil seperti (jika ada tulisan Option Explicit, maka
> letakkan di baris ke-2 module) :
> private rngHasilSebelumnya as range
>
> >> lalu buat proses find menjadi 2 cabang, yaitu ketika isi
> rngHasilSebelumnya masih kosong dan yang sudah isi
> if rnghasilsebelumnya is nothing then
> 'rngHasilSebelumnya masih kosong
> else
> 'rngHasilSebelumnya ada isinya
> endif
>
> >> di bagian rngHasilSebelumnya masih kosong, lakukan proses Find dengan
> bagian parameter After dikosongkan
> set rngHasilSebelumnya=sheets("nama sheet data").range("alamat
> data").find( nilainya , lookat:=xlvalues)
> >> di bagian rngHasilSebelumnya ada isinya, lakukan proses Find dengan
> bagian parameter after diisi dengan rngHasilSebelumnya
> set rngHasilSebelumnya=sheets("nama sheet data").range("alamat
> data").find( nilainya, rngHasilSebelumnya , lookat:=xlvalues)
>
> 2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo
> pake Application.Goto semua data yang berada diatasnya tidak tampak,
> bagaimanakah macronya?
> >> kalau begotu jangan pakai methods Goto
> >> ganti dengan rangkaian proses berikut :
> a. aktifkan sheet yang akan ditunjuk tersebut
> Sheets("nama sheetnya").activate
> b. aktifkan range yang akan ditunjuk tersebut
> Sheets("nama sheetnya").Range("alamat rangenya").activate
>
> >> kalau terkait dengan soal nomor 1 di atas, karena range hasil disimpan
> di variabel bernama rngHasilSebelumnya, maka kedua proses tersebut menjadi
> begini :
> a. aktifkan sheet yang akan ditunjuk tersebut
> rngHasilSebelumnya.parent.activate
> b. aktifkan range yang akan ditunjuk tersebut
> rngHasilSebelumnya.activate
>
> 3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
> menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
> menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
> >> pakai userform kan... set properti showmodal milik userform menjadi
> FALSE
> -> lihat di VBE -> aktifkan properties window (tekan F4 supaya
> muncul) -> double klik userformnya
> -> lihat properties window -> cari properti bernama ShowModal ->
> set nilainya menjadi FALSE -> save workbook
> >> atau saat akan menampilkan userform dengan methods Show, set parameter
> modal dengan FALSE
> nama_object_userformnya.show false
>
> Amin.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2015-04-16 17:39 GMT+10:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Assalamu'
>
> Mohon pencerahan dan solusinya para master excel semua...
> Kali ini saya penasaran dengan jendela Find pada excel, kenapa?
> 1. Dia akan terus mencari hingga data yang dicari tidak ditemukan lagi...,
> bagaimanakah macronya...? kalo pencarian yg saya lakukan selama ini dengan
> macro dibawah ini, dia hanya akan mencari 1 data, sementara jika data yang
> sama masih ada, maka tidak bisa dicari lagi
>
> With Sheets("
> Set iNo = .Find(CariNoBP, After:=.Cells(
> If Not iNo Is Nothing Then
> Application.
>
> 2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo
> pake Application.
> bagaimanakah macronya?
>
> 3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
> menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
> menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
>
> Terima kasih atas bantuannya, semoga tiap respon dan solusi mendapatkan
> balasan yang lebih baik dari Allah Swt. Amin
>
> Salam
> Haris
>
>
>
>
>
>
Fri Jul 31, 2015 4:58 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau begitu :
1. hilangkan semua gambar (image alias picture) dari dalam userforms maupun
worksheet.
2. bersihkan setiap sheet dengan cara blok seluruh baris dalam worksheet ->
klik kanan -> clear contents
3. unlink alias break link rujuka ke semua workbook lain
4. ganti rujuka semua nama range yang merujuk ke workbook lain dengan range
yang ada di sebuah worksheet di workbook kerja walau isi range-nya kosong
5. hapus semua cells styles buatan user alias sisakan hanya yang built in
saja
Atau, Anda coba sendiri dengan cek userform satu per satu. Misal cek
userform ke-1 dengan hapus userforms ke-2 sampai terakhir.
Kalau errornya sama, berarti cukup kirim file itu saja. Kalau errornya
beda, tutup workbook tanpa di-save, buka lagi, cek userform ke-2 (userform
1 dan 3 sampai terakhir dihapus), dst.
Hal seperti ini bisa banyak kemungkinan penyebabnya. Lebih mudah jika bisa
mendapat salinan file nya tanpa embel-embel data dan images beserta
formatting alias yang plain hanya worksheet kosong, nama range yang merujuk
ke lokal workbook, userform bermasalah.
btw,
penyebab hal seperti ini yang umum ditemukan antara lain karena ada control
object entah dimana (worksheet atau userform) dan apapun itu (textbox atau
yang lainnya), yang di set control source atau listfillrange atau
linkedcells yang merujuk ke protected cells di worksheet tertentu.
Wassalam,
Kid
2015-07-30 10:30 GMT+07:00 yudha cahayaoptikmandiri@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> tengkyu mas toby
> nanti tak coba dulu
> buat om kid
> setelah dikosongi semua, filenya masih +/- 17 mb
>
> salam
> yudha
>
> "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
> >Dear Yudha,
> >
> >Pertama, apakah setiap buat baru commondbutton pada sheet yg muncul
> Commondbutton1 atau 21...?
> >Kedua,coba diganti sheet3.Visible= xlsheetVisible jadi sheet3.Visible=
> true
> >
> >Semoga membantu.
> >
> >TerimaKasih.
> >
> >Sent from Yahoo Mail on Android
> >
>
>
1. hilangkan semua gambar (image alias picture) dari dalam userforms maupun
worksheet.
2. bersihkan setiap sheet dengan cara blok seluruh baris dalam worksheet ->
klik kanan -> clear contents
3. unlink alias break link rujuka ke semua workbook lain
4. ganti rujuka semua nama range yang merujuk ke workbook lain dengan range
yang ada di sebuah worksheet di workbook kerja walau isi range-nya kosong
5. hapus semua cells styles buatan user alias sisakan hanya yang built in
saja
Atau, Anda coba sendiri dengan cek userform satu per satu. Misal cek
userform ke-1 dengan hapus userforms ke-2 sampai terakhir.
Kalau errornya sama, berarti cukup kirim file itu saja. Kalau errornya
beda, tutup workbook tanpa di-save, buka lagi, cek userform ke-2 (userform
1 dan 3 sampai terakhir dihapus), dst.
Hal seperti ini bisa banyak kemungkinan penyebabnya. Lebih mudah jika bisa
mendapat salinan file nya tanpa embel-embel data dan images beserta
formatting alias yang plain hanya worksheet kosong, nama range yang merujuk
ke lokal workbook, userform bermasalah.
btw,
penyebab hal seperti ini yang umum ditemukan antara lain karena ada control
object entah dimana (worksheet atau userform) dan apapun itu (textbox atau
yang lainnya), yang di set control source atau listfillrange atau
linkedcells yang merujuk ke protected cells di worksheet tertentu.
Wassalam,
Kid
2015-07-30 10:30 GMT+07:00 yudha cahayaoptikmandiri@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> tengkyu mas toby
> nanti tak coba dulu
> buat om kid
> setelah dikosongi semua, filenya masih +/- 17 mb
>
> salam
> yudha
>
> "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
> >Dear Yudha,
> >
> >Pertama, apakah setiap buat baru commondbutton pada sheet yg muncul
> Commondbutton1 atau 21...?
> >Kedua,coba diganti sheet3.Visible= xlsheetVisible jadi sheet3.Visible=
> true
> >
> >Semoga membantu.
> >
> >TerimaKasih.
> >
> >Sent from Yahoo Mail on Android
> >
>
>
Fri Jul 31, 2015 12:24 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file yang ada disini
<https://app.box.com/s/3aoq41oqch69fvdzr1jzly7atyc211m7>.
Silakan dimanfaatkan dan dikembangkan dengan santun.
Regard,
Kid
2015-07-30 18:29 GMT+07:00 Andrie - sioean2@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Be Excel,
>
> Saya mempunyai Sheet Data yang ingin di pindahkan datanya ke sheet import
> keluaran efaktur.
> Mohon bantuannya bagaimana caranya jika kita menggunakan macro untuk
> mengatasi hal ini sehingga mempermudah kita dalam proses import faktur
> keluaran di aplikasi efaktur Dirjen Pajak.
>
> Contoh file terlampir
>
> Thanks
>
>
>
>
<https://app.box.com/s/3aoq41oqch69fvdzr1jzly7atyc211m7>.
Silakan dimanfaatkan dan dikembangkan dengan santun.
Regard,
Kid
2015-07-30 18:29 GMT+07:00 Andrie - sioean2@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Be Excel,
>
> Saya mempunyai Sheet Data yang ingin di pindahkan datanya ke sheet import
> keluaran efaktur.
> Mohon bantuannya bagaimana caranya jika kita menggunakan macro untuk
> mengatasi hal ini sehingga mempermudah kita dalam proses import faktur
> keluaran di aplikasi efaktur Dirjen Pajak.
>
> Contoh file terlampir
>
> Thanks
>
>
>
>
Fri Jul 31, 2015 7:28 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Begini Mr. Saya ingin membuat diagram organisasi yg secara otomatis dan bisa
berubah secara dinamis sesuai data yg ada
Contoh yg Mr. Berikan hanya mengubah teks pada satu shape aja. Tapi tidak
bisa untuk mengisi organization chart seperti yg saya maksud (attachment di
email sebelumnya saya lampirkan lagi)
Berikut ini contoh bawaan excel,ketika saya jalankan kenapa masih ada error
?
Sub AddChildNodesToRoot()
'ActiveSheet.Shapes(1).Delete
Dim nodDiagram As DiagramNode
Dim shDiagram As Shape
Dim intCount As Integer
Set shDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
Width:=400, Height:=100)
' Add the first node to the diagram.
shDiagram.DiagramNode.Children.AddNode
' Establish the first node as the root.
Set nodDiagram = shDiagram.DiagramNode.Root
' Add three modes to the diagram.
For intCount = 1 To 5
nodDiagram.Children.AddNode
Next
For intCount = 1 To 5
Set shText = shpDiagram.DiagramNode.Children.Item(1).TextShape
shText.TextFrame.Characters.Text = Str(intCount)
Next intCount
End Sub
Mohon pengetahuannya
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
---------- Pesan terusan ----------
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]"
<belajar-excel@yahoogroups.com>
Tanggal: 2015 7 30 01:44
Subjek: Re: [belajar-excel] MENGISI DIAGRAM
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Hai Heru,
Cara mengubah teks dalam suati shape adalah melalui properti Text.
Contoh : ada sheet bernama 'data' berisi sebuah shape bernama 'shpSatu' yang
akan diubah bunyi teksnya dengan bunyi 'Kid'
Sheets("data").shapes("shpSatu").textframe.characters.text = "Kid"
Bagian "data", "shpSatu", dan "Kid" (lengkap dengan petik ganda buka dan
tutupnya) bisa diganti dengan variabel berisi teks tertentu atau rujukan ke
properti nilai data milik suatu range.
Wassalam,
Kid
From: Heru Safrudin [mailto:superheruu@gmail.com]
Sent: 25 Juli 2015 11:56
To: 'belajar-excel@yahoogroups.com'
Subject: MENGISI DIAGRAM
Dear para Master,
Adakah yang bisa membantu saya mengisi diagram dibawah ini sesuai nama pada
tabel berikut :
LEVEL
NAMA
AYAH
ILHAM
IBU
FAJRIN
ANAK1
JAUHAR
ANAK2
FARIZ
ANAK3
MAULIDA
Dengan macro dengan cara klik
<ymsgr:sendIM?heru.safrudin>; Heru SafrudinBISI,Heru Safrudin,YM online
berubah secara dinamis sesuai data yg ada
Contoh yg Mr. Berikan hanya mengubah teks pada satu shape aja. Tapi tidak
bisa untuk mengisi organization chart seperti yg saya maksud (attachment di
email sebelumnya saya lampirkan lagi)
Berikut ini contoh bawaan excel,ketika saya jalankan kenapa masih ada error
?
Sub AddChildNodesToRoot()
'ActiveSheet.Shapes(1).Delete
Dim nodDiagram As DiagramNode
Dim shDiagram As Shape
Dim intCount As Integer
Set shDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
Width:=400, Height:=100)
' Add the first node to the diagram.
shDiagram.DiagramNode.Children.AddNode
' Establish the first node as the root.
Set nodDiagram = shDiagram.DiagramNode.Root
' Add three modes to the diagram.
For intCount = 1 To 5
nodDiagram.Children.AddNode
Next
For intCount = 1 To 5
Set shText = shpDiagram.DiagramNode.Children.Item(1).TextShape
shText.TextFrame.Characters.Text = Str(intCount)
Next intCount
End Sub
Mohon pengetahuannya
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
---------- Pesan terusan ----------
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]"
<belajar-excel@yahoogroups.com>
Tanggal: 2015 7 30 01:44
Subjek: Re: [belajar-excel] MENGISI DIAGRAM
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Hai Heru,
Cara mengubah teks dalam suati shape adalah melalui properti Text.
Contoh : ada sheet bernama 'data' berisi sebuah shape bernama 'shpSatu' yang
akan diubah bunyi teksnya dengan bunyi 'Kid'
Sheets("data").shapes("shpSatu").textframe.characters.text = "Kid"
Bagian "data", "shpSatu", dan "Kid" (lengkap dengan petik ganda buka dan
tutupnya) bisa diganti dengan variabel berisi teks tertentu atau rujukan ke
properti nilai data milik suatu range.
Wassalam,
Kid
From: Heru Safrudin [mailto:superheruu@gmail.com]
Sent: 25 Juli 2015 11:56
To: 'belajar-excel@yahoogroups.com'
Subject: MENGISI DIAGRAM
Dear para Master,
Adakah yang bisa membantu saya mengisi diagram dibawah ini sesuai nama pada
tabel berikut :
LEVEL
NAMA
AYAH
ILHAM
IBU
FAJRIN
ANAK1
JAUHAR
ANAK2
FARIZ
ANAK3
MAULIDA
Dengan macro dengan cara klik
<ymsgr:sendIM?
Fri Jul 31, 2015 7:31 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Begini Mr. Saya ingin membuat diagram organisasi yg secara otomatis dan bisa
berubah secara dinamis sesuai data yg ada
Contoh yg Mr. Berikan hanya mengubah teks pada satu shape aja. Tapi tidak
bisa untuk mengisi organization chart seperti yg saya maksud (attachment di
email sebelumnya saya lampirkan lagi)
Berikut ini contoh bawaan excel,ketika saya jalankan kenapa masih ada error
?
Sub AddChildNodesToRoot()
'ActiveSheet.Shapes(1).Delete
Dim nodDiagram As DiagramNode
Dim shDiagram As Shape
Dim intCount As Integer
Set shDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
Width:=400, Height:=100)
' Add the first node to the diagram.
shDiagram.DiagramNode.Children.AddNode
' Establish the first node as the root.
Set nodDiagram = shDiagram.DiagramNode.Root
' Add three modes to the diagram.
For intCount = 1 To 5
nodDiagram.Children.AddNode
Next
For intCount = 1 To 5
Set shText = shpDiagram.DiagramNode.Children.Item(1).TextShape
shText.TextFrame.Characters.Text = Str(intCount)
Next intCount
End Sub
Mohon pengetahuannya
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
---------- Pesan terusan ----------
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]"
<belajar-excel@yahoogroups.com>
Tanggal: 2015 7 30 01:44
Subjek: Re: [belajar-excel] MENGISI DIAGRAM
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Hai Heru,
Cara mengubah teks dalam suati shape adalah melalui properti Text.
Contoh : ada sheet bernama 'data' berisi sebuah shape bernama 'shpSatu' yang
akan diubah bunyi teksnya dengan bunyi 'Kid'
Sheets("data").shapes("shpSatu").textframe.characters.text = "Kid"
Bagian "data", "shpSatu", dan "Kid" (lengkap dengan petik ganda buka dan
tutupnya) bisa diganti dengan variabel berisi teks tertentu atau rujukan ke
properti nilai data milik suatu range.
Wassalam,
Kid
From: Heru Safrudin [mailto:superheruu@gmail.com]
Sent: 25 Juli 2015 11:56
To: 'belajar-excel@yahoogroups.com'
Subject: MENGISI DIAGRAM
Dear para Master,
Adakah yang bisa membantu saya mengisi diagram dibawah ini sesuai nama pada
tabel berikut :
LEVEL
NAMA
AYAH
ILHAM
IBU
FAJRIN
ANAK1
JAUHAR
ANAK2
FARIZ
ANAK3
MAULIDA
Dengan macro dengan cara klik
<ymsgr:sendIM?heru.safrudin>; Heru SafrudinBISI,Heru Safrudin,YM online
berubah secara dinamis sesuai data yg ada
Contoh yg Mr. Berikan hanya mengubah teks pada satu shape aja. Tapi tidak
bisa untuk mengisi organization chart seperti yg saya maksud (attachment di
email sebelumnya saya lampirkan lagi)
Berikut ini contoh bawaan excel,ketika saya jalankan kenapa masih ada error
?
Sub AddChildNodesToRoot()
'ActiveSheet.Shapes(1).Delete
Dim nodDiagram As DiagramNode
Dim shDiagram As Shape
Dim intCount As Integer
Set shDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
Width:=400, Height:=100)
' Add the first node to the diagram.
shDiagram.DiagramNode.Children.AddNode
' Establish the first node as the root.
Set nodDiagram = shDiagram.DiagramNode.Root
' Add three modes to the diagram.
For intCount = 1 To 5
nodDiagram.Children.AddNode
Next
For intCount = 1 To 5
Set shText = shpDiagram.DiagramNode.Children.Item(1).TextShape
shText.TextFrame.Characters.Text = Str(intCount)
Next intCount
End Sub
Mohon pengetahuannya
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
---------- Pesan terusan ----------
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]"
<belajar-excel@yahoogroups.com>
Tanggal: 2015 7 30 01:44
Subjek: Re: [belajar-excel] MENGISI DIAGRAM
Kepada: "BeExcel" <belajar-excel@yahoogroups.com>
Hai Heru,
Cara mengubah teks dalam suati shape adalah melalui properti Text.
Contoh : ada sheet bernama 'data' berisi sebuah shape bernama 'shpSatu' yang
akan diubah bunyi teksnya dengan bunyi 'Kid'
Sheets("data").shapes("shpSatu").textframe.characters.text = "Kid"
Bagian "data", "shpSatu", dan "Kid" (lengkap dengan petik ganda buka dan
tutupnya) bisa diganti dengan variabel berisi teks tertentu atau rujukan ke
properti nilai data milik suatu range.
Wassalam,
Kid
From: Heru Safrudin [mailto:superheruu@gmail.com]
Sent: 25 Juli 2015 11:56
To: 'belajar-excel@yahoogroups.com'
Subject: MENGISI DIAGRAM
Dear para Master,
Adakah yang bisa membantu saya mengisi diagram dibawah ini sesuai nama pada
tabel berikut :
LEVEL
NAMA
AYAH
ILHAM
IBU
FAJRIN
ANAK1
JAUHAR
ANAK2
FARIZ
ANAK3
MAULIDA
Dengan macro dengan cara klik
<ymsgr:sendIM?
"PERATURAN MILIS belajar-excel"
------------
Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.
Setting untuk posting di milis ini masih dipertahankan = "UnModerated&q
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.
Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.
Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah"
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.
Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.
Untuk itu kita perlu kesepakatan sebagai berikut:
A. SANGAT DIHARAPKAN:
============
(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.
(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.
(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)
(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.
B. SANGAT TIDAK DIHARAPKAN:
============
(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.
(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).
(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).
(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.
(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.
(6)
Menyertakan link yang merujuk kepada halaman yang berisi iklan produk /
informasi yang tidak berhubungan dengan Excel / pertanyaan.
C. LAIN LAIN:
========
Saran & Tips menulis mail / posting ke milis:
------------
(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong"
"help"
(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan&quo
suatu topik, oleh karena itu jangan dilakukan.
Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.
(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.
(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting&#
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.
'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.
Mengenai OOT dan VOOT
------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).
Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".
Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan&q
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.
Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.
VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.
Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.
Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri&#
Kritik dan saran kepada milis 'belajar-
------------
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators
Hak dan wewenang Moderators
------------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.
Himbauan dari milis 'belajar excel' kpd members
------------
Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.
Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes"
ada semacam etika umum yg lazim disebut "nettiquette&q
Kalau anda sering tidak mengindahkan "nettiquettes&
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.
Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".
------------
revisi 2: tgl 02Des2013 / dwint
# penambahan point B.6.
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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