Hỏi về macro trong excel và cách định dạng dd/MM/yy?

[tienkd3]

mọi người cho em hỏi về Macro trong excel, em không hiểu tạo macro để làm gì ?
em co tải file số sách kế toán theo qđ48/2006 về nhưng sau khi chạy macro thì mở file lên máy báo : hiện tại máy em đang chạy theo định dạng d/m/yyyy và yêu cầu sửa định dạng ngày lại theo dd/MM/yyyy. Em phải sửa như thế nào đây? mọi người chỉ giúp em với vì em hơi bị dở về Excel lắm.
cám ơn mọi người và chúc mọi người một ngày tốt lành!

 

[cadafi]

mọi người cho em hỏi về Macro trong excel, em không hiểu tạo macro để làm gì ?
em co tải file số sách kế toán theo qđ48/2006 về nhưng sau khi chạy macro thì mở file lên máy báo : hiện tại máy em đang chạy theo định dạng d/m/yyyy và yêu cầu sửa định dạng ngày lại theo dd/MM/yyyy. Em phải sửa như thế nào đây? mọi người chỉ giúp em với vì em hơi bị dở về Excel lắm.

Để chỉnh ngày tháng hệ thống, bạn vào control Panel/Regional and Language Option
Trong Tab Regional Option chọn Customize.
Trong cửa sổ Customize regional option, chọn tab Date, Trong short date format bạn gõ vào: dd/mm/yyyy

Để hiểu rõ về macro, bạn search trên diễn đàn hoặc google từ Macro for excel, hoặc excel macro.

 

[anh82tb]

[FONT='Times New Roman','serif']Giải hệ bất phương trình khó[/FONT]
[FONT='Times New Roman','serif']Em là dân newbie trong VB và VBA các bác có thể giúp em giải hệ phương trình có 5 ẩn và 12 (tổng quát n ẩn và m phương trình với m>m) bất phương trình rang buộc. Em định tổ hợp 5 (n) bất phương trình tương ứng 5 (n) ẩn để giải nhưng tổ hợp số hệ bất phương trình thì lại thành bài toán khó hơn? Hix bác nào có ý tưởng hay cách giải nào giúp em solving cái vđề này với.[/FONT]
[FONT='Times New Roman','serif']Many thanks in advance!!!![/FONT]

 

[chibi]

Bạn nghiên cứu code của Đào Việt Cường nhé

Option Explicit
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_USER_DEFAULT = &H400
[COLOR=silver]'_______________________________[/COLOR]
 
Public Function LPSTRToVBString$(ByVal s$)
Dim nullpos&
nullpos& = InStr(s$, Chr$(0))
If nullpos > 0 Then
LPSTRToVBString = Left$(s$, nullpos - 1)
Else
LPSTRToVBString = ""
End If
End Function
 
 
[COLOR=silver]'______________________________[/COLOR]
[COLOR=darkgreen]'Thủ tục thiết lập lại định dạng ngày hệ thống nếu không đúng tiêu chuẩn '"dd/MM/yyyy"[/COLOR]
Private Sub ShortDateFormat_Set() 
Dim dl As String
Dim buffer As String * 100
dl = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, buffer, 99)
dl = LPSTRToVBString(buffer)
If UCase(dl) <> "DD/MM/YYYY" Then
dl = SetLocaleInfo(0, LOCALE_SSHORTDATE, "dd/MM/yyyy")
End If
End Sub

 

[tienkd3]

cám ơn vì đã xem và trả lời câu hỏi của em,em sẽ tìm hiểu thêm .
Chúc anh một ngày tốt lành!