bisa ajarin/contohin bikin QR Code otomatis gak di excell ? yang bisa di scan pakai qr code scanner
misal
"mobil sedan warna merah" itu bisa terconversi otomatis menjadi qr code
tx
bisa ajarin/contohin bikin QR Code otomatis gak di excell ? yang bisa di scan pakai qr code scanner
misal
"mobil sedan warna merah" itu bisa terconversi otomatis menjadi qr code
tx
silakan mampir ke blog saya https://excelinaja.wordpress.com/2016/06/07/qr-code-dengan-excel/ :D
@diditsatriyadi silakan mampir ke blog saya https://excelinaja.wordpress.com/2016/06/07/qr-code-dengan-excel/ :D
saya gak ngerti mas, kok ruwet banget ya hehe
ya namanya juga qr code, mesti rumitlah bagian data encoding nya..
tapi jika dipelajari langkah per langkah lama-lama pasti paham caranya..
tutorial mudah yg saya ikuti dari thonky http://www.thonky.com/qr-code-tutorial/
selamat belajar hehehe
@diditsatriyadi
kalo untuk kasus saya bisa simple gak mas? contoh terlampir
data yang di barcode kan yang warna biru
saya juga kasih penjelasan di cell warna merah
itu kasus nya bukan simple N mau terima jadi. nih saya kasih samplenya N coba dikembangkan dulu
:D haha kirain mau belajar prosesnya qr-code.. ya pake punyanya mas @fujiansyah92 itu bagus
tapi harus di jalankan dalam kondisi online(terhubung dengan internet) ..
cuma koreksinya baris yang
resource = "http://qrfree.kaywa.com/?s=8&d=http://ev082e5f304adf/dsa/index.php/site/edit?doctype=" & rRange.Value
resource = "http://qrfree.kaywa.com/?s=8&d=" & rRange.Value
iya mas..lupa di delete...maklum bekas file system/app saya :D
thanks mas @diditsatriyadi
Hehe, aku juga mau belajar mas dari contoh yang ada kan bisa aku bedah dan makasih skrg aku sudah sediqt ngerti, tapi kok ketika di generate shape, data validation combobox dan lain-lain hilang ya
apakarena ini
Sub DeleteShapes() On Error Resume Next Dim Shp As Shape For Each Shp In ActiveSheet.Shapes Shp.Select If Not Shp.Name = "BTNRUN" Then Shp.Delete
apakah bisa saya akali dengan mengganti semua tool menjadi BTNRUN atau gimana ya?
mohon pencerahannya
atau malah saya harus menambahnya misal;
If Not Shp.Name = "BTNRUN","shape1","shape2" Then Shp.Delete
Iya karna saya gunakan deleteshape untuk menghapus qr sblumnya
Klo mau..delete aja "call deleteshape" nya..dicoding .
Atau identifikasikan semua shape..pic n button untuk dibuat pengecualian agar tdk di delete
Atau identifikasikan semua shape..pic n button untuk dibuat pengecualian agar tdk di delete
caranya gimana ya mas karna ketika aq ubahIf Not Shp.Name = "BTNRUN","shape1","shape2" Then Shp.Delete
malah error
hehe
cara namai shape/button jadi BTNRUN aja aq gk ngerti mas tadinya nak aku namai button1 button2 dst...
Gini...pertama sebaiknya rename shape/button/combobox/pict ...menjadi shp1,shp2,shp3 dst
Lalu dicoding sperti ini:
if not shp.name="shp1" or not shp.name="shp2 or not shp.name="shp3" then Shp.delete
Jadi pakai pengulangan 'or not shp.name'
if not shp.name="shp1" or not shp.name="shp2 or not shp.name="shp3" then Shp.delete
@NOVI if not shp.name="shp1" or not shp.name="shp2 or not shp.name="shp3" then Shp.delete
sorry .ganti or nya jadi and
if not shp.name="shp1" and not shp.name="shp2 and not shp.name="shp3" then Shp.delete
coba file terlampir
semoga membantu ya