Senin, Oktober 17, 2016

Code of Macro Excel To Copy Paste Value From One Cell To Other Cell

If we want to copy paste from A1 cell to A3 cell, its macro code is:
Sub CopyValue()
Range("A3").Value = Range("A1").Value
End Sub
or
Sub CopyValue()
Cells(3, 1) = Cells(1, 1)
End Sub

Kode Macro Excel Untuk Copy Paste Nilai Dari Satu Cell ke Cell Lainnya

Misalkan kita akan melakukan copy paste dari cell A1 ke A3, maka kode macro excelnya adalah:
Sub CopyNilai()
Range("A3").Value = Range("A1").Value
End Sub
atau
Sub CopyNilai()
Cells(3, 1) = Cells(1, 1)
End Sub

Jumat, Oktober 07, 2016

Contoh Pembahasan Soal Matematika Tentang Pertidaksamaan Nilai Mutlak

Mencari himpunan penyelesaian yang memenuhi pertidaksamaan nilai mutlak |3x-1|+|x|+|x-1|>=3

Pembahasan:

Akan digunakan salah satu sifat pertidaksamaan nilai mutlak:
|x|=x, jika x>=0
|x|=-x, jika x<0

Kemungkinan penyelesaian untuk |3x-1|+|x|+|x-1|>=3 adalah:
  1. (3x-1)+(x)+(x-1)>=3
  2. (3x-1)+(x)-(x-1)>=3
  3. (3x-1)-(x)+(x-1)>=3
  4. (3x-1)-(x)-(x-1)>=3
  5. -(3x-1)+(x)+(x-1)>=3
  6. -(3x-1)+(x)-(x-1)>=3
  7. -(3x-1)-(x)+(x-1)>=3
  8. -(3x-1)-(x)-(x-1)>=3

Akan dicoba satu persatu...
  1. (3x-1)+(x)+(x-1)>=3
    3x-1+x+x-1>=3
    5x-5>=0
    5(x-1)>=0
    x-1>=0
    x>=1

    Subst. x>=1 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=1 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=1
      |3x-1|+|x|+|x-1|
      =|3(1)-1|+|1|+|1-1|
      =|2|+|1|+|0|
      =2+1+0
      =3
      (*) x=1 memenuhi untuk |3x-1|+|x|+|x-1|=3
    • Untuk x>1 (misal x=2)
      |3x-1|+|x|+|x-1|
      =|3(2)-1|+|2|+|2-1|
      =|5|+|2|+|1|
      =5+2+1
      =8>3
      (**) x>3 memenuhi untuk |3x-1|+|x|+|x-1|>3
    Dari (*) dan (**) dapat dibuktikan bahwa x>=1 memenuhi untuk |3x-1|+|x|+|x-1|>=3

  2. (3x-1)+(x)-(x-1)>=3
    3x-1+x-x+1>=3
    3x-3>=0
    3(x-1)>=0
    x-1>=0
    x>=1
    Memberikan himpunan penyelesaian yang sama dengan poin (1)

  3. (3x-1)-(x)+(x-1)>=3
    3x-1-x+x-1>=3
    3x>=5
    x>=5/3

    Subst. x>=5/3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=5/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=5/3
      |3x-1|+|x|+|x-1|
      =|3(5/3)-1|+|5/3|+|5/3-1|>br/> =|4|+||5/3|+|2/3|
      =4+5/3+2/3
      =19/3 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x>=5/3 tidak merupakan himpunan penyelesaian

  4. (3x-1)-(x)-(x-1)>=3
    3x-1-x-x+1>=3
    x>=3

    Subst. x>=3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x>=1 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=3
      |3x-1|+|x|+|x-1|
      =|3(3)-1|+|3|+|3-1|
      =|8|+|3|+|2|
      =8+3+2
      =13
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x>=3 tidak merupakan himpunan penyelesaian

  5. -(3x-1)+(x)+(x-1)>=3
    -3x+1+x+x-1>=3
    -x>=3
    x<=-3
    Dari poin (4) seudah dibuktikan bahwa x=3 tidak memenuhi pertidaksamaan |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=3 tidak merupakan himpunan penyelesaian

  6. -(3x-1)+(x)-(x-1)>=3
    -3x+1+x-x+1>=3
    -3x>=1
    -x>=1/3
    x<=-1/3

    Subst. x<=-1/3 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1/3
      |3x-1|+|x|+|x-1|
      =|3(-1/3)-1|+|-1/3|+|-1/3-1|
      =|-2|+|-1/3|+|-4/3|
      =2+1/3+4/3
      =11/3 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=-1/3 tidak merupakan himpunan penyelesaian

  7. -(3x-1)-(x)+(x-1)>=3
    -3x+1-x+x-1>=3
    -3x-3>=0
    -3(x+1)>=0
    -(x+1)>=0
    x+1<=0
    x<=-1

    Subst. x<=-1 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1
      |3x-1|+|x|+|x-1|
      =|3(-1)-1|+|-1|+|-1-1|
      =|-4|+|-1|+|-2|
      =4+1+2
      =7 ≠ 3
      Tidak memenuhi untuk |3x-1|+|x|+|x-1| bernilai 3, sehingga x<=-1 tidak merupakan himpunan penyelesaian

  8. -(3x-1)-(x)-(x-1)>=3
    -3x+1-x-x+1>=3
    -5x>=1
    -x>=1/5
    x<=-1/5

    Subst. x<=-1/5 ke |3x-1|+|x|+|x-1| untuk memeriksa apakah x<=-1/3 memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3
    • Untuk x=-1/5
      |3x-1|+|x|+|x-1|
      =|3(-1/5)-1|+|-1/5|+|-1/5-1|
      =8/5+1/5+6/5
      =15/5
      =3
      (*) x=-1/5 memenuhi untuk |3x-1|+|x|+|x-1|=3
    • Untuk x<-1/5 (misal ambil x=-1)
      |3x-1|+|x|+|x-1|
      =|3(-1)-1|+|-1|+|-1-1|
      =|-4|+|-1|+|-2|
      =4+1+2
      =7 > 3
      (**) x<-1/5 memenuhi untuk |3x-1|+|x|+|x-1|>3
Dari poin (1) s.d. (8) didapat bahwa Himpunan Penyelesaian yang memenuhi pertidaksamaan |3x-1|+|x|+|x-1|>=3 adalah poin (1) dan poin (8). Jadi Himpunan Penyelesaian dari pertidaksamaan |3x-1|+|x|+|x-1|>=3 adalah: x<=-1/5 dan x>=1

Lihat contoh pembahasan soal lainnya di sini

Senin, September 26, 2016

How To Show Time In MS Excel Using Macro

To show time in ms excel using macro, first we must start macro appropriate excel version, please read this article before.

And macro code to show time in ms excel is:

Sub Jam()
Set Sh = ThisWorkbook.Sheets(1)
Sh.Calculate

With Sh.Range("A1")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With

Time = Now + TimeValue("00:00:01")
Application.OnTime Waktu, "Jam"
End Sub

If we want to dismiss AM or PM, change code:
.NumberFormat = "hh:mm:ss AM/PM"
be:
.NumberFormat = "hh:mm:ss"

If we want to add date, change code:
.NumberFormat = "hh:mm:ss AM/PM"
be:
.NumberFormat = "dd-mm-yyyy hh:mm:ss AM/PM"

Source: Thanks a lot to http://www.rumusexcel.com

Cara Menampilkan Jam Di MS Excel Menggunakan Macro

Untuk menampilkan jam di ms excel menggunakan macro terlebih dahulu kita harus memulai macro pada masing-masing versi excel, baca dulu artikel ini Dan kode macro untuk menampilkan jam di ms excel adalah:

Sub Jam()
Set Sh = ThisWorkbook.Sheets(1)
Sh.Calculate

With Sh.Range("A1")
.FormulaR1C1 = "=Now()"
.NumberFormat = "hh:mm:ss AM/PM"
End With

Waktu = Now + TimeValue("00:00:01")
Application.OnTime Waktu, "Jam"
End Sub

Jika ingin menghilangkan AM atau PM nya, ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "hh:mm:ss"

Jika ingin menambahkan tanggal maka ubah kode:
.NumberFormat = "hh:mm:ss AM/PM"
menjadi:
.NumberFormat = "dd-mm-yyyy hh:mm:ss AM/PM"

Sumber: Terimakasih kepada http://www.rumusexcel.com

Minggu, September 18, 2016

Contoh Pembahasan Soal Matematika Tentang KPK

Kegiatan kerja bakti di Desa Sukamaju dilakukan secara rutin. RT 01 melakukan kerja bakti setiap 12 hari sekali, RT 02 setiap 10 hari sekali dan RT 03 setiap 8 hari. Pada tanggal 20 Desember 2015 kerja bakti serentak dilaksanakan di seluruh RT. Kerja bakti tersebut akan dilaksanakan bersamaan kembali pada tanggal...
Pembahasan:

KPK dari 12, 10, dan 8 adalah 120

20 Desember 2015 + 120 hari ?

Desember 205 ada 31 hari, maka sampai 31 Desember 2015 terpakai 31-20 = 11 hari (sisa = 120-11 = 109 hari)

Januari 2016 ada 31 hari, maka sampai 31 Januari 2016 terpakai 31 hari (sisa = 109-31 = 78 hari)

Februari 2016 ada 29 hari, maka sampai tanggal 29 Feberuari 2016 terpakai 29 hari (sisa = 78-29 = 49 hari)

Maret 2016 ada 31 hari, maka sampai tanggal 31 Maret terpakai 31 hari (sisa = 49-31 = 18 hari)

18 hari tersisa untuk bulan April 2016.

Jadi seluruh RT tersebut akan melaksanakan kerja bakti serentak kembali pada tanggal 18 April 2016

Lihat contoh pembahasan soal lainnya di sini

Jumat, September 16, 2016

Contoh Pembahasan Soal Matematika Tentang Bagun Ruang

  1. Jika volume bola A adalah 32π cm3 dan volume bola B adalah 108π cm3, maka perbandingan jari-jari bola A dan jari-jari bola B adalah ... : ... (catatan: gunakan π = 22/7).
    Pembahasan:
    Diketahui:
    Vbola 1 = 32π cm3
    Vbola 2 = 108π cm3

    Ditanya:
    r1 : r2 = ... ?

    Jawab:





    Jadi perbandingan jari-jari bola A dan jari-jari bola B adalah 2:3

Lihat contoh pembahasan soal lainnya di sini