4 New Messages
Digest #2209
Messages
Dear BeExceller,
Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1 kata :
Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
Bayu, kolom ke 4 Adjie.
Terima kasih,
Wassalam,
Tio
Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1 kata :
Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
Bayu, kolom ke 4 Adjie.
Terima kasih,
Wassalam,
Tio
Thu Apr 4, 2013 5:14 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana kalau melampirkan workbook kartu stok (beberapa) dan workbook
hasil yang sudah berisi daftar nama file beserta kode-kode atau informasi
mutasi apa saja baris mana saja yang akan diambil dari setiap workbook.
Wassalam,
Kid.
2013/4/3 yohanes <yohanes_ats@yahoo.com >
> **
>
>
> Siang,
>
> Saya mempunyai ribuan kartu stock dalam format excel yang ingin saya tanya
> bagaimana mendapatkan laporan mutasi stock per hari atau dari tanggal
> sampai tanggal ?
> karena dari ribuan kartu stock tersebut belum tentu semua file mengalami
> mutasi.
>
> Contohnya:
>
> File 1 ada 2 mutasi masuk
> File 230 ada 1 mutasi masuk & 3 mutasi keluar
> File 3000 ada 5 mutasi keluar
>
> dalam report tersebut yang ingin saya tampilkan:
>
> 2 mutasi masuk dari file 1
> 1 mutasi masuk dari file 230
> 3 mutasi keluar dari file 230
> 5 mutasi keluar dari file 3000
>
> sehingga reportnya berisi 11 baris :
>
> Mohon petunjuk para master atas masalah saya ini.
>
> Thank's
> Yohanes
>
>
>
hasil yang sudah berisi daftar nama file beserta kode-kode atau informasi
mutasi apa saja baris mana saja yang akan diambil dari setiap workbook.
Wassalam,
Kid.
2013/4/3 yohanes <yohanes_ats@
> **
>
>
> Siang,
>
> Saya mempunyai ribuan kartu stock dalam format excel yang ingin saya tanya
> bagaimana mendapatkan laporan mutasi stock per hari atau dari tanggal
> sampai tanggal ?
> karena dari ribuan kartu stock tersebut belum tentu semua file mengalami
> mutasi.
>
> Contohnya:
>
> File 1 ada 2 mutasi masuk
> File 230 ada 1 mutasi masuk & 3 mutasi keluar
> File 3000 ada 5 mutasi keluar
>
> dalam report tersebut yang ingin saya tampilkan:
>
> 2 mutasi masuk dari file 1
> 1 mutasi masuk dari file 230
> 3 mutasi keluar dari file 230
> 5 mutasi keluar dari file 3000
>
> sehingga reportnya berisi 11 baris :
>
> Mohon petunjuk para master atas masalah saya ini.
>
> Thank's
> Yohanes
>
>
>
Thu Apr 4, 2013 5:41 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Maaf sebelumnya udah ngotorin di milis, soal yg saya tanyakan udah beres
Bodoh sekali saya, saya otak atik kembali diganti manual sSisi nya malah bisa
If Left$(sJari, 1) = "R" Then
lSisi = 1
sSisi = vbNullString
s1 = "kiri"
s2 = "kanan"
Else
lSisi = 0
sSisi = "R"
s1 = "kiri"
s2 = "kanan"
End If
Maaf sekali lagi dan terima kasih
Wassalam,
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Thursday, April 4, 2013 6:26 PM
Subject: Kode VBA ada yg terbalik
Dear para Master Excel,
Saya ada kode VBA sebagai berikut:
Private Sub cmdTARL_Click()
'masih eror
Dim oLbl(1, 4) As Control, oTxt(1, 4) As Control 'ganti control dengan msforms.label atau msforms.textbox jika object ada di worksheet
Dim sKet As String, s1 As String, s2 As String, sfile1 As String, sfile2 As String, sJari As String, sSisi As String, sSisiTeks As String
Dim lSisi As Long, lNo As Long
Set oLbl(0, 0) = lblL1: Set oLbl(0, 1) = lblL2: Set oLbl(0, 2) = lblL3: Set oLbl(0, 3) = lblL4: Set oLbl(0, 4) = lblL5
Set oLbl(1, 0) = lblR1: Set oLbl(1, 1) = lblR2: Set oLbl(1, 2) = lblR3: Set oLbl(1, 3) = lblR4: Set oLbl(1, 4) =
lblR5
Set oTxt(0, 0) = txtL1: Set oTxt(0, 1) = txtL2: Set oTxt(0, 2) = txtL3: Set oTxt(0, 3) = txtL4: Set oTxt(0, 4) = txtL5
Set oTxt(1, 0) = txtR1: Set oTxt(1,
1) = txtR2: Set oTxt(1, 2) = txtR3: Set oTxt(1, 3) = txtR4: Set oTxt(1, 4) = txtR5
sKet = "Turuan dari Tented Arch menuju Ulnar Loop. Pada tangan %s1, tampak seperti belahan rambut ikal memiliki arah alur ke%s2. Hampir/sudah memiliki Core maupun Delta, tetapi hampir tidak ada jarak antara Core dan Delta."
sfile1 = "C:\Tipe Jari\TA-%s1L1.jpg"
sfile2 = "C:\Tipe Jari\TA-%s1L2.jpg"
If LenB(lblFolder.Caption) <> 0 Then
lblNamaJari.Caption = "Tented Arch with Ulnar Loop"
sJari = lblJari.Caption
lNo = CLng(Mid$(sJari, 2, 1)) - 1
If Left$(sJari, 1) = "R" Then
lSisi = 1
sSisi = Left$(sJari, 1)
s1 = "kiri"
s2 = "kanan"
Else
lSisi = 0
sSisi = vbNullString
s1 = "kiri"
s2 = "kanan"
End If
lblKeterangan.Caption = Replace$(Replace$(sKet, "%s1", s1), "%s2", s2)
imgC1.Picture = LoadPicture(vbNullString)
imgC1.Picture = LoadPicture(Replace$(sfile1, "%s1", sSisi))
imgC2.Picture = LoadPicture(vbNullString)
imgC2.Picture = LoadPicture(Replace$(sfile2, "%s1", sSisi))
oLbl(lSisi, lNo).Caption = "TA-RL"
oTxt(lSisi, lNo).Text = 0
oTxt(lSisi, lNo).SetFocus
Else
MsgBox ("Tentukan Folder Terlebih Dahulu")
End If
End Sub
Yg berwarna biru adalah kode yg bermasalah (kebalik), yg warna hijau adalah kondisi.
Ada 2 jenis gambar di C:\Tipe Jari\, yaitu TA-L.jpg dan TA-RL.jpg
Yg saya harapkan,
Jika Left$(sJari, 1) = "R" maka pasang imgC1.Picture dan imgC2.Picture dengan file
C:\Tipe Jari\TA-L1.jpg dan C:\Tipe Jari\TA-L2.jpg
Jika Left$(sJari, 1) = "L" maka pasangimgC1.Picture dan imgC2.Picture dengan file
C:\Tipe Jari\TA-RL1.jpg dan C:\Tipe Jari\TA-RL2.jpg
Saya sudah coba balik sSisinya yg vbNullString pindah keatas dan sebaliknya, tapi malah error
Mohon bantuannya pada rekan-rekan Master Excel, atas bantuannya saya ucapkan terimakasih
Wassalam,
Bodoh sekali saya, saya otak atik kembali diganti manual sSisi nya malah bisa
If Left$(sJari, 1) = "R" Then
lSisi = 1
sSisi = vbNullString
s1 = "kiri"
s2 = "kanan"
Else
lSisi = 0
sSisi = "R"
s1 = "kiri"
s2 = "kanan"
End If
Maaf sekali lagi dan terima kasih
Wassalam,
----- Forwarded Message -----
From: lapendosol opik <lapendosol@yahoo.
To: "belajar-excel@
Sent: Thursday, April 4, 2013 6:26 PM
Subject: Kode VBA ada yg terbalik
Dear para Master Excel,
Saya ada kode VBA sebagai berikut:
Private Sub cmdTARL_Click(
'masih eror
Dim oLbl(1, 4) As Control, oTxt(1, 4) As Control 'ganti control dengan msforms.label atau msforms.textbox jika object ada di worksheet
Dim sKet As String, s1 As String, s2 As String, sfile1 As String, sfile2 As String, sJari As String, sSisi As String, sSisiTeks As String
Dim lSisi As Long, lNo As Long
Set oLbl(0, 0) = lblL1: Set oLbl(0, 1) = lblL2: Set oLbl(0, 2) = lblL3: Set oLbl(0, 3) = lblL4: Set oLbl(0, 4) = lblL5
Set oLbl(1, 0) = lblR1: Set oLbl(1, 1) = lblR2: Set oLbl(1, 2) = lblR3: Set oLbl(1, 3) = lblR4: Set oLbl(1, 4) =
lblR5
Set oTxt(0, 0) = txtL1: Set oTxt(0, 1) = txtL2: Set oTxt(0, 2) = txtL3: Set oTxt(0, 3) = txtL4: Set oTxt(0, 4) = txtL5
Set oTxt(1, 0) = txtR1: Set oTxt(1,
1) = txtR2: Set oTxt(1, 2) = txtR3: Set oTxt(1, 3) = txtR4: Set oTxt(1, 4) = txtR5
sKet = "Turuan dari Tented Arch menuju Ulnar Loop. Pada tangan %s1, tampak seperti belahan rambut ikal memiliki arah alur ke%s2. Hampir/sudah memiliki Core maupun Delta, tetapi hampir tidak ada jarak antara Core dan Delta."
sfile1 = "C:\
sfile2 = "C:\
If LenB(lblFolder.
lblNamaJari.
sJari = lblJari.Caption
lNo = CLng(Mid$(sJari, 2, 1)) - 1
If Left$(sJari, 1) = "R" Then
lSisi = 1
sSisi = Left$(sJari, 1)
s1 = "kiri"
s2 = "kanan"
Else
lSisi = 0
sSisi = vbNullString
s1 = "kiri"
s2 = "kanan"
End If
lblKeterangan.
imgC1.Picture = LoadPicture(
imgC1.Picture = LoadPicture(
imgC2.Picture = LoadPicture(
imgC2.Picture = LoadPicture(
oLbl(lSisi, lNo).Caption = "TA-RL"
oTxt(lSisi, lNo).Text = 0
oTxt(lSisi, lNo).SetFocus
Else
MsgBox ("Tentukan Folder Terlebih Dahulu"
End If
End Sub
Yg berwarna biru adalah kode yg bermasalah (kebalik), yg warna hijau adalah kondisi.
Ada 2 jenis gambar di C:\Tipe Jari\, yaitu TA-L.jpg dan TA-RL.jpg
Yg saya harapkan,
Jika Left$(sJari, 1) = "R" maka pasang imgC1.Picture dan imgC2.Picture dengan file
C:\Tipe Jari\TA-
Jika Left$(sJari, 1) = "L" maka pasangimgC1.
C:\Tipe Jari\TA-
Saya sudah coba balik sSisinya yg vbNullString pindah keatas dan sebaliknya, tapi malah error
Mohon bantuannya pada rekan-rekan Master Excel, atas bantuannya saya ucapkan terimakasih
Wassalam,
Thu Apr 4, 2013 5:45 am (PDT) . Posted by:
"WIRAnata Kemala T." kwiranata
dear all,
mohon petunjuk atau bantuannya untuk solve issue yang saya hadapi:
untuk copy-paste ke sheet hasil dari sheet data; masing-masing salesperson
hanya dipaste sesuai dengan persyaratan (hanya x row pertama yang dipaste
ke sheet hasil)
Untuk lebih jelas, mohon dilihat attachment nya.
secara data jumlahnya ribuan row, sepertinya perlu memakai looping di VBA
deh, mohon petunjuk, sekalian belajar, langsung nyelam ke real sample
coding nya. semoga nanti nya juga bisa berbagi :)
terima kasih banyak atas bantuan dan atensi nya.
--
regards, Wira 鄧åˆéŠ˜
from FireFox browser
mohon petunjuk atau bantuannya untuk solve issue yang saya hadapi:
untuk copy-paste ke sheet hasil dari sheet data; masing-masing salesperson
hanya dipaste sesuai dengan persyaratan (hanya x row pertama yang dipaste
ke sheet hasil)
Untuk lebih jelas, mohon dilihat attachment nya.
secara data jumlahnya ribuan row, sepertinya perlu memakai looping di VBA
deh, mohon petunjuk, sekalian belajar, langsung nyelam ke real sample
coding nya. semoga nanti nya juga bisa berbagi :)
terima kasih banyak atas bantuan dan atensi nya.
--
regards, Wira 鄧åˆéŠ˜
from FireFox browser
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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