ໂປແກັມນີ້ເໝາະສຳລັບໃນການສ້າງຕົວໜັງສືແບບ 3D ຫຼື Avata ເພື່ອເອົາຂຶ້ນ web,ວິທີໃຊ້ກໍ່ງ່າຍໆຄື:
1. ເວລາລົງໂປແກັມໃຫ້ໃສ່ Key ນີ້: X3D-112523075449
2. ການນຳໃຊ້:
2.1. ກົດເຂົ້າ "T" ເພື່ອຂຽນເນື້ອໃນຢາກສ້າງ.
2.2. ປັບຄ່າຕ່າງໆໃຫ້ເໝາະສົມ...ເຮັດລອງເບິ່ງຈັກ 2 - 3 ຄັ້ງ ກໍ່ຮູ້.
2.3. ເລືອກ Save As...
ດາວໂຫຼດທີ່ນີ້
Saturday, November 20, 2010
Friday, November 19, 2010
ໂປແກັມ ສ້າງຮູບເຄື່ອນໄຫວ ແລະ Banner
ເປັນໂປແກັມຊ່ວຍສ້າງຮູບເຄື່ອນໄຫວ ແລະ Banner ເພື່ອເອົາຂຶ້ນ web.
ພາຍຫຼັງລົງໂປແກັມແລ້ວ ທ່ານຢ່າຟ້າວເປີດ ໂປແກັມຂຶ້ນ ແລ້ວໃຫ້ປະຕິບັດຄື:
Copy ເຕັງ file gifan (ໃນ folder Crack)ເຂົ້າໃນ: C -> Program Files -> Easy GIF Animator ).
1. ເປີດໂປແກັມຂຶ້ນມາ,ກົດໃສ່ ຮູບເລກບວກຢູ່ເບື້ອງຊ້າຍ(ເທິງ) ເພື່ອດຶງຮູບເຂົ້າມາສ້າງ.
2. ປັບຄວາມໄວ ຫຼື ຊ້າ ໃນການປ່ຽນຮູບທີ່ "Delay"
3. ກົດໃສ່ຮູບ 3 ຫຼ່ຽມເພື່ອລອງເບິ່ງ.
4. ກົດເຂົ້າ File / Save As...
ດາວໂຫຼດໄດ້ທີ່ນີ້
ພາຍຫຼັງລົງໂປແກັມແລ້ວ ທ່ານຢ່າຟ້າວເປີດ ໂປແກັມຂຶ້ນ ແລ້ວໃຫ້ປະຕິບັດຄື:
Copy ເຕັງ file gifan (ໃນ folder Crack)ເຂົ້າໃນ: C -> Program Files -> Easy GIF Animator ).
1. ເປີດໂປແກັມຂຶ້ນມາ,ກົດໃສ່ ຮູບເລກບວກຢູ່ເບື້ອງຊ້າຍ(ເທິງ) ເພື່ອດຶງຮູບເຂົ້າມາສ້າງ.
2. ປັບຄວາມໄວ ຫຼື ຊ້າ ໃນການປ່ຽນຮູບທີ່ "Delay"
3. ກົດໃສ່ຮູບ 3 ຫຼ່ຽມເພື່ອລອງເບິ່ງ.
4. ກົດເຂົ້າ File / Save As...
ດາວໂຫຼດໄດ້ທີ່ນີ້
Wednesday, November 17, 2010
ວິທີເຮັດໃຫ້ Excel ສາມາດ Undo ໄດ້ 100 ເທື່ອ
ຕາມປົກກະຕິແລ້ວ Excel ອະນຸຍາດໃຫ້ເຮົາ Undo ຄືນໄດ້ບໍ່ຫຼາຍ (16 ຄັ້ງ)
ແຕ່ຖ້າເຮົາຢາກ Undo ຫຼາຍກ່ວານັ້ນເດ,ຈະເຮັດແນວໃດ?ມີວິທີງ່າຍໆດັ່ງນີ້:
ທ່ານ ດາວໂຫຼດ file ຢູ່ຂ້າງລຸ່ມ ແລ້ວໃຫ້ປະຕິບັດດັ່ງນີ້:
1. ຖ້າຢາກໃຫ້ Excel ສາມາດ Undo ໄດ້ 100 ຄັ້ງ,ທ່ານ ກໍ່ຂິກຄູ່ໃສ່ file: Undo100 / Ok / Ok
2. ຖ້າຢາກໃຫ້ກັບຄືນເໝືອນເດີມ,ທ່ານ ກໍ່ຂິກຄູ່ໃສ່ file: Undo16 / Ok / Ok
3. ຕ້ອງ Start ເຄື່ອງຄືນໃໝ່ຈິ່ງມີຜົນ.
ດາວໂຫຼດໄດ້ທີ່ນີ້
ແຕ່ຖ້າເຮົາຢາກ Undo ຫຼາຍກ່ວານັ້ນເດ,ຈະເຮັດແນວໃດ?ມີວິທີງ່າຍໆດັ່ງນີ້:
ທ່ານ ດາວໂຫຼດ file ຢູ່ຂ້າງລຸ່ມ ແລ້ວໃຫ້ປະຕິບັດດັ່ງນີ້:
1. ຖ້າຢາກໃຫ້ Excel ສາມາດ Undo ໄດ້ 100 ຄັ້ງ,ທ່ານ ກໍ່ຂິກຄູ່ໃສ່ file: Undo100 / Ok / Ok
2. ຖ້າຢາກໃຫ້ກັບຄືນເໝືອນເດີມ,ທ່ານ ກໍ່ຂິກຄູ່ໃສ່ file: Undo16 / Ok / Ok
3. ຕ້ອງ Start ເຄື່ອງຄືນໃໝ່ຈິ່ງມີຜົນ.
ດາວໂຫຼດໄດ້ທີ່ນີ້
ວິທີ ເຮັດໃຫ້ Excel ໃສ່ ລ/ດ ໃຫ້ໂດຍອັດຕະໂນມັດ:
ໃນ Excel,ຖ້າເຮົາໄປລືບເນື້ອໃນຂອງແຖວໜຶ່ງແລ້ວ,ເລກ ລ/ດ ຈະບໍ່ປັບໃຫ້ອັດຕະໂນມັດ ຄືໃນ Word,ສະນັ້ນຈິ່ງມີວິທີແກ້ດັ່ງນິີ້:
ສົມມຸດວ່າ:ທ່ານເລີ່ມພິມເນື້ອໃນໃສ່ແຖວທີ 3 ແລະ ໃນ ແຖວ A2 = ລ/ດ ; B2 = ຊື່ ແລະ ນາມສະກຸນ.
1. ໃຫ້ທ່ານໃສ່ສູດລຸ່ມນີ້ໃສ່ຫ້ອງ: A3
=IF(B3="","",1)
2. ໃຫ້ທ່ານໃສ່ສູດລຸ່ມນີ້ໃສ່ຫ້ອງ: A4
=IF(B3="","",MAX($A$3:A3)+1)
3. ຕໍ່ໄປໃຫ້ທ່ານຂິກໃສ່ຫ້ອງ A4 ,ລາກເມົາລົງທີ່ແຈຂວາ,ດ້ານລຸ່ມຂອງຫ້ອງ A4 ,ເວລາປະກົດເຄື່ອງໝາຍ "+" ໃຫ້ທ່ານຂິກຊ້າຍຄ້າງໄວ້
ແລ້ວລາກລົງລຸ່ມ...
4. ເວລາທ່ານພິມຊື່ເຂົ້າໃນຊ້ອງ B ທ່ານຈະເຫັນວ່າລະບົບຈະໃສ່ເລກ ລ/ດ ໃຫ້ທ່ານໂດຍອັດຕະໂນມັດ ຫຼື ເວລາທ່ານລົບແຖວໜື່ງອອກ
ລະບົບຈະປັບເລກ ລ/ດ ໃຫ້ໃໝ່.
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
ສົມມຸດວ່າ:ທ່ານເລີ່ມພິມເນື້ອໃນໃສ່ແຖວທີ 3 ແລະ ໃນ ແຖວ A2 = ລ/ດ ; B2 = ຊື່ ແລະ ນາມສະກຸນ.
1. ໃຫ້ທ່ານໃສ່ສູດລຸ່ມນີ້ໃສ່ຫ້ອງ: A3
=IF(B3="","",1)
2. ໃຫ້ທ່ານໃສ່ສູດລຸ່ມນີ້ໃສ່ຫ້ອງ: A4
=IF(B3="","",MAX($A$3:A3)+1)
3. ຕໍ່ໄປໃຫ້ທ່ານຂິກໃສ່ຫ້ອງ A4 ,ລາກເມົາລົງທີ່ແຈຂວາ,ດ້ານລຸ່ມຂອງຫ້ອງ A4 ,ເວລາປະກົດເຄື່ອງໝາຍ "+" ໃຫ້ທ່ານຂິກຊ້າຍຄ້າງໄວ້
ແລ້ວລາກລົງລຸ່ມ...
4. ເວລາທ່ານພິມຊື່ເຂົ້າໃນຊ້ອງ B ທ່ານຈະເຫັນວ່າລະບົບຈະໃສ່ເລກ ລ/ດ ໃຫ້ທ່ານໂດຍອັດຕະໂນມັດ ຫຼື ເວລາທ່ານລົບແຖວໜື່ງອອກ
ລະບົບຈະປັບເລກ ລ/ດ ໃຫ້ໃໝ່.
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
Tuesday, November 16, 2010
ວິທີສ້າງ Form ເພື່ອ Login ເຂົ້າ Excel
ຂັ້ນຕອນຂອງການສ້າງມີດັ່ງນີ້:
1. ຕັ້ງຊື່ Sheet1 = Data ; Sheet2 = Login.
2. ຂິກຂວາໃສ່ຊື່ Sheet"Data" ແລ້ວເລືອກ View code
3. ຂິກໃສ່ Insert / User Form.
4. ໃນກ່ອງ Toolbox ໃຫ້ຂິກໃສ່ Lebel ແລ້ວເອົາມາວາງໃສ່ User Form ,ຂຽນຄຳວ່າ: ລະຫັດ ; ຂິກໃສ່ Textbox ແລ້ວເອົາມາວາງໃສ່ User Form
ເພື່ອເປັນບ່ອນໃສ່ລະຫັດ ; ຂິກໃສ່ Commandbutton ແລ້ວເອົາມາວາງໃສ່ User Form ເພື່ອສ້າງປຸ່ມ "ຕົກລົງ" ແລະ ໃຫ້ເຮັດເຊັ່ນດຽວກັນກັບການ
ສ້າງປຸ່ມ "ອອກ"
5. ການຕັ້ງຊື່:
5.1. ຊື່ຂອງ Form: frmLogin.
5.2. ຊື່ຂອງປຸ່ມ "ຕົກລົງ" = cmdOK ; ຊື່ຂອງປຸ່ມ "ອອກ" = cmdCancel
6. ຂັ້ນຕອນການໃສ່ Code:
6.1. ຂິກໃສ່ Insert / Module ຂິກຄູ່ໃສ່ Module ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Sub Auto_Open()
frmLogin.Show
End Sub
6.2. ຂິກຂວາໃສ່ "frmLogin" ທີ່ຢູ່ເບຶ້ອງຊ້າຍມື(ເທິງ) ເລືອກ View code ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Const sPassword = "metxai"
Private Sub cmdCancel_Click()
MsgBox "Sorry you can not prove that they have permission to open the workbook!"
ActiveWorkbook.Close
End Sub
Private Sub cmdOK_Click()
With TextBox1
If .Text = sPassword Then
ActiveWorkbook.Sheets("Data").Activate
Unload Me
Exit Sub
End If
MsgBox "incorrect password!"
.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Login").Activate
With TextBox1
.Text = ""
.PasswordChar = "*"
End With
End Sub
7. ປ່ຽນລະຫັດໃໝ່ໂດຍການແທນລະຫັດໃໝ່ໃສ່: "metxai" = "*************" (ຕາມໃຈ,ແຕ່ບໍ່ໃຫ້ໃສ່ພາສາລາວ)
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
1. ຕັ້ງຊື່ Sheet1 = Data ; Sheet2 = Login.
2. ຂິກຂວາໃສ່ຊື່ Sheet"Data" ແລ້ວເລືອກ View code
3. ຂິກໃສ່ Insert / User Form.
4. ໃນກ່ອງ Toolbox ໃຫ້ຂິກໃສ່ Lebel ແລ້ວເອົາມາວາງໃສ່ User Form ,ຂຽນຄຳວ່າ: ລະຫັດ ; ຂິກໃສ່ Textbox ແລ້ວເອົາມາວາງໃສ່ User Form
ເພື່ອເປັນບ່ອນໃສ່ລະຫັດ ; ຂິກໃສ່ Commandbutton ແລ້ວເອົາມາວາງໃສ່ User Form ເພື່ອສ້າງປຸ່ມ "ຕົກລົງ" ແລະ ໃຫ້ເຮັດເຊັ່ນດຽວກັນກັບການ
ສ້າງປຸ່ມ "ອອກ"
5. ການຕັ້ງຊື່:
5.1. ຊື່ຂອງ Form: frmLogin.
5.2. ຊື່ຂອງປຸ່ມ "ຕົກລົງ" = cmdOK ; ຊື່ຂອງປຸ່ມ "ອອກ" = cmdCancel
6. ຂັ້ນຕອນການໃສ່ Code:
6.1. ຂິກໃສ່ Insert / Module ຂິກຄູ່ໃສ່ Module ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Sub Auto_Open()
frmLogin.Show
End Sub
6.2. ຂິກຂວາໃສ່ "frmLogin" ທີ່ຢູ່ເບຶ້ອງຊ້າຍມື(ເທິງ) ເລືອກ View code ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Const sPassword = "metxai"
Private Sub cmdCancel_Click()
MsgBox "Sorry you can not prove that they have permission to open the workbook!"
ActiveWorkbook.Close
End Sub
Private Sub cmdOK_Click()
With TextBox1
If .Text = sPassword Then
ActiveWorkbook.Sheets("Data").Activate
Unload Me
Exit Sub
End If
MsgBox "incorrect password!"
.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Login").Activate
With TextBox1
.Text = ""
.PasswordChar = "*"
End With
End Sub
7. ປ່ຽນລະຫັດໃໝ່ໂດຍການແທນລະຫັດໃໝ່ໃສ່: "metxai" = "*************" (ຕາມໃຈ,ແຕ່ບໍ່ໃຫ້ໃສ່ພາສາລາວ)
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
ວິທີເຊື່ຶອມຂໍ້ມູນຈາກ Sheet ຫາ Sheet
ສົມມຸດວ່າທ່ານຢາກເຊື່ອມຂໍ້ມູນຈາກ:
1. ແຖວ A5 ຂອງ Sheet"HS" ໄປ ແຖວ A5 ຂອງ Sheet"HS2"
2. ແຖວ C5 ຂອງ Sheet"HS" ໄປ ແຖວ B5 ຂອງ Sheet"HS2"
ຂັ້ນຕອນປະຕິບັດມີດັ່ງນີ້:
1. ຂິກຂວາໃສ່ຊື່ Sheet"HS" ແລ້ວເລືອກ View code
2. Copy Code ນິີ້ໃສ່:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
LastRow = HS.Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
HS1.Range("A5:A" & LastRow).Value = HS.Range("A5:A" & LastRow).Value
HS1.Range("B5:B" & LastRow).Value = HS.Range("C5:C" & LastRow).Value
End Sub
3. ກົດ Save ແລ້ວ ອອກ.
4. ທ່ານລອງພິມເນື້ອໃນໃສ່ ແຕ່ A5 ຫາ A65536 ແລະ C5 ຫາ C65536 ຂອງ Sheet"HS" ແລ້ວໄປເບິ່ງຜົນທີ່ Sheet"HS1"
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
1. ແຖວ A5 ຂອງ Sheet"HS" ໄປ ແຖວ A5 ຂອງ Sheet"HS2"
2. ແຖວ C5 ຂອງ Sheet"HS" ໄປ ແຖວ B5 ຂອງ Sheet"HS2"
ຂັ້ນຕອນປະຕິບັດມີດັ່ງນີ້:
1. ຂິກຂວາໃສ່ຊື່ Sheet"HS" ແລ້ວເລືອກ View code
2. Copy Code ນິີ້ໃສ່:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
LastRow = HS.Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
HS1.Range("A5:A" & LastRow).Value = HS.Range("A5:A" & LastRow).Value
HS1.Range("B5:B" & LastRow).Value = HS.Range("C5:C" & LastRow).Value
End Sub
3. ກົດ Save ແລ້ວ ອອກ.
4. ທ່ານລອງພິມເນື້ອໃນໃສ່ ແຕ່ A5 ຫາ A65536 ແລະ C5 ຫາ C65536 ຂອງ Sheet"HS" ແລ້ວໄປເບິ່ງຜົນທີ່ Sheet"HS1"
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້
Saturday, November 13, 2010
ວິທີເຊື່ອງຊ້ອງ D ແລະ E
ທ່ານ ສາມາເຊື່ອງຊ້ອງ D ແລະ E ໄດ້ດ້ວຍວິທີງ່າຍໆດັ່ງນີ້:
1. ດາວໂຫຼດ file:
2. ຄາຍ Zip.
3. ຖ້າຢາກເຊື່ອງຊ້ອງ D ແມ່ນໃຫ້ຂິກຄູ່ໃສ່ file "AD" ແລ້ວກົດ Ok.
4. ຖ້າຢາກເຊື່ອງຊ້ອງ E ແມ່ນໃຫ້ຂິກຄູ່ໃສ່ file "AE" ແລ້ວກົດ Ok.
( ທ່ານຕ້ອງ Start ເຄື່ອງຄືນໃໝ່ຈິ່ງມີຜົນ )
5. ຖ້າຢາກໃຫ້ປະກົດຊ້ອງ D ແລະ E ,ທ່ານ ຂິກຄູ່ໃສ່ file "HE" ແລ້ວກົດ Ok.
ດາວໂຫຼດໄດ້ທີ່ນີ້
1. ດາວໂຫຼດ file:
2. ຄາຍ Zip.
3. ຖ້າຢາກເຊື່ອງຊ້ອງ D ແມ່ນໃຫ້ຂິກຄູ່ໃສ່ file "AD" ແລ້ວກົດ Ok.
4. ຖ້າຢາກເຊື່ອງຊ້ອງ E ແມ່ນໃຫ້ຂິກຄູ່ໃສ່ file "AE" ແລ້ວກົດ Ok.
( ທ່ານຕ້ອງ Start ເຄື່ອງຄືນໃໝ່ຈິ່ງມີຜົນ )
5. ຖ້າຢາກໃຫ້ປະກົດຊ້ອງ D ແລະ E ,ທ່ານ ຂິກຄູ່ໃສ່ file "HE" ແລ້ວກົດ Ok.
ດາວໂຫຼດໄດ້ທີ່ນີ້
ບໍ່ໃຫ້ Save As... ໃນ Excel
ເໝາະສຳລັບທ່ານໃດທີ່ໃຊ້ Computer ລວມຢູ່ຫ້ອງການ,ເພາະ file ຕົວຢ່າງນິີ້ຈະຊ່ວຍບໍ່ໃຫ້ຜູ້ອື່ນ Save As... ໄດ້.
ເປັນການແກ້ບັນຫາ file Excel ດຽວແຕ່ມີຫຼາຍຊື່.
ດາວໂຫຼດໄດ້ທີ່ນີ້
ເປັນການແກ້ບັນຫາ file Excel ດຽວແຕ່ມີຫຼາຍຊື່.
ດາວໂຫຼດໄດ້ທີ່ນີ້
Subscribe to:
Posts (Atom)