8 Messages
Digest #4694
Messages
Thu Jan 24, 2019 5:16 am (PST) . Posted by:
"Agus"
Dear Pak Hendrik
Selamat malam,
saya menggunakan cekript di bawah pada Visual Basic 6.0.
dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim procid As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
*MsgBox procid*
End Sub
Salam
KenangAgus
On 1/24/2019 11:38, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] wrote:
> Dear Be-Excel,
>
> Selamat pagi, salam sejahtera.
>
> Pada kesempatan ini saya ingin bertanya :
> Bagaimanakah perintah Macro di Excel (/*jika bisa*/) untuk mengambil
> Serial Number dari komputer yang sedang kita gunakan ?
> Saya akan menggunakan Serial Number ini untuk mem-password file Excel.
>
> Di bawah ini adalah Serial Number yang saya dapatkan melalui perintah
> Cmd:\, WMIC BASEBOARD GET PRODUCT, .....
>
> Inline image
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
Selamat malam,
saya menggunakan cekript di bawah pada Visual Basic 6.0.
dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim procid As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
*MsgBox procid*
End Sub
Salam
KenangAgus
On 1/24/2019 11:38, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] wrote:
> Dear Be-Excel,
>
> Selamat pagi, salam sejahtera.
>
> Pada kesempatan ini saya ingin bertanya :
> Bagaimanakah perintah Macro di Excel (/*jika bisa*/) untuk mengambil
> Serial Number dari komputer yang sedang kita gunakan ?
> Saya akan menggunakan Serial Number ini untuk mem-password file Excel.
>
> Di bawah ini adalah Serial Number yang saya dapatkan melalui perintah
> Cmd:\, WMIC BASEBOARD GET PRODUCT, .....
>
> Inline image
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
Thu Jan 24, 2019 5:53 am (PST) . Posted by:
"Agus"
Dear Roni,
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd-mmmm-yyyy") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Salam
NangAgus
On 1/24/2019 11:42, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Dear Mr Kid,
>
>
> Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
> Terimakasih
>
>
>
> Regards,
> Roni
>
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd-mmmm-yyyy") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Salam
NangAgus
On 1/24/2019 11:42, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Dear Mr Kid,
>
>
> Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
> Terimakasih
>
>
>
> Regards,
> Roni
>
Thu Jan 24, 2019 2:59 pm (PST) . Posted by:
"Agus"
Dear Roni,
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd-mmmm-yyyy") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Salam
NangAgus
On 1/24/2019 11:42, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Dear Mr Kid,
>
>
> Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
> Terimakasih
>
>
>
> Regards,
> Roni
>
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd-mmmm-yyyy") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Salam
NangAgus
On 1/24/2019 11:42, y.roni35@yahoo.com [belajar-excel] wrote:
>
> Dear Mr Kid,
>
>
> Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
> Terimakasih
>
>
>
> Regards,
> Roni
>
Thu Jan 24, 2019 7:14 am (PST) . Posted by:
"Agus"
Dear Tio,
Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus
On 1/23/2019 10:42, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] wrote:
>
> Dear Bexceller,
>
> Saya ada pertanyaan.
>
> Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
>
> Teks yang panjang ini ditempatkan di userform.
>
> Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat
> panjang itu jadi beberapa baris dan ditempatkan di cell tertentu.
> Contohnya di kolom A di beberapa baris.**
>
> Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat
> yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di
> beberapa baris di kolom tertentu ?**
>
> **
>
> *Contoh soal terlampir.*
>
> .
>
>
>
Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus
On 1/23/2019 10:42, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] wrote:
>
> Dear Bexceller,
>
> Saya ada pertanyaan.
>
> Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
>
> Teks yang panjang ini ditempatkan di userform.
>
> Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat
> panjang itu jadi beberapa baris dan ditempatkan di cell tertentu.
> Contohnya di kolom A di beberapa baris.**
>
> Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat
> yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di
> beberapa baris di kolom tertentu ?**
>
> **
>
> *Contoh soal terlampir.*
>
> .
>
>
>
Thu Jan 24, 2019 3:47 pm (PST) . Posted by:
"Rahagung Dananjoyo" danank_01
Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5, sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop down list tsb.
Pertanyaan nya adalah :Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro, Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5, sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop down list tsb.
Pertanyaan nya adalah :Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro, Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
Thu Jan 24, 2019 4:12 pm (PST) . Posted by:
"Rahagung Dananjoyo" danank_01
Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5, sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop down list tsb.
Pertanyaan nya adalah :Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro, Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5, sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop down list tsb.
Pertanyaan nya adalah :Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro, Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
Thu Jan 24, 2019 5:29 pm (PST) . Posted by:
"M.Ade Alfarid" aderyo
Menurut saya bisa saja dibuat formula di A5 tanpa makro
*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
*Sent:* Friday, January 25, 2019 7:12 AM
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Drop Down List
Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.
Pada cell A5, sy membuat formula/rumus yg merujuk pada cell
A1(nilai/kategori yg dipilih dari dropdown list tsb).
Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop
down list tsb.
Pertanyaan nya adalah :
Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro,
Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak
pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
<https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
*Sent:* Friday, January 25, 2019 7:12 AM
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Drop Down List
Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.
Pada cell A5, sy membuat formula/rumus yg merujuk pada cell
A1(nilai/kategori yg dipilih dari dropdown list tsb).
Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada drop
down list tsb.
Pertanyaan nya adalah :
Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro,
Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa tidak
pakai Macro?
Terima kasih sebelumnya untuk solusi dan diskusinya
Sent from Yahoo Mail on Android
<https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
Thu Jan 24, 2019 6:29 pm (PST) . Posted by:
"Agus"
Dear Rahagung,
Menurut saya bergantung kebutuhan dan kerumitan formula, bisa dengan
macro bisa pula dengan formula.
dengan macro-pun dapat diproses di vba baru ditulis di cell, dapat pula
formula ditulis menggunakan VBA.
Sangat disarankan untuk menggunakan fitur yang sudah disediakan excel
daripada menggunakan VBA.
On 1/25/2019 07:11, Rahagung Dananjoyo danank_01@yahoo.com
[belajar-excel] wrote:
> Selamat pagi teman-teman...
>
> Ada beberapa hal yg ingin sy diskusikan
>
> Misal sy membuat drop down list dari Data Validation di cell A1.
> Pada cell A5, sy membuat formula/rumus yg merujuk pada cell
> A1(nilai/kategori yg dipilih dari dropdown list tsb).
> Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada
> drop down list tsb.
>
> Pertanyaan nya adalah :
> Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro,
> Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa
> tidak pakai Macro?
>
> Terima kasih sebelumnya untuk solusi dan diskusinya
>
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
Menurut saya bergantung kebutuhan dan kerumitan formula, bisa dengan
macro bisa pula dengan formula.
dengan macro-pun dapat diproses di vba baru ditulis di cell, dapat pula
formula ditulis menggunakan VBA.
Sangat disarankan untuk menggunakan fitur yang sudah disediakan excel
daripada menggunakan VBA.
On 1/25/2019 07:11, Rahagung Dananjoyo danank_01@yahoo.com
[belajar-excel] wrote:
> Selamat pagi teman-teman...
>
> Ada beberapa hal yg ingin sy diskusikan
>
> Misal sy membuat drop down list dari Data Validation di cell A1.
> Pada cell A5, sy membuat formula/rumus yg merujuk pada cell
> A1(nilai/kategori yg dipilih dari dropdown list tsb).
> Jadi nilai pada A5, akan berubah sesuai nilai/kategori yg dipilih pada
> drop down list tsb.
>
> Pertanyaan nya adalah :
> Jika drop down list tersebut dibuat menggunakan Combo Box dari Macro,
> Apakah formula/rumus di A5 tersebut harus pakai Macro juga atau bisa
> tidak pakai Macro?
>
> Terima kasih sebelumnya untuk solusi dan diskusinya
>
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
============================================================
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