Hàm tự động chuyển đổi decimal sang hexa

[topgun]

Chào các bác!
Em có đoạn code lấy dữ liệu từ file text sang excel, nhờ các bác viết thêm giúp e hàm tự động chuyển đổi ký tự từ Decimal sang Hexa (Cells(r,8), cộng thêm việc các ký tự đó chuyển từ chữ thường sang chữ hoa. Thanks các bác!

Sub ReadUSRINF()
Dim logLine, sh, temp As String
Dim r, c As Integer
Dim i, j, k, m, l, t, f As Long
'Dim m, n As Integer
temp = 0
r = 2
i = 5
j = 5
k = 5
m = 5
l = 5
t = 5
f = 5

found = False
sh = "USRINF"
Workbooks(bk).Activate
Sheets(sh).Activate
Sheets(sh).Visible = True
With Workbooks(bk).Sheets(sh)
Range("A:IV").ClearContents
.Cells(1, 1).Select
If fName "False" Then
.Cells(1, 1).CurrentRegion.ClearContents
.Cells(1, 1).Value = "MSISDN"
.Cells(1, 2).Value = "IMSI"
.Cells(1, 3).Value = "TMSI"
.Cells(1, 4).Value = "IMEI"
.Cells(1, 5).Value = "Cell Identity"
.Cells(1, 6).Value = "MSC number"
.Cells(1, 7).Value = "IMSI Attach Flag"

Open fName For Input As #1
Do While Not EOF(1)
Line Input #1, logLine

If InStr(logLine, "MSISDN =") Then i = 2
If i = 2 Then
.Cells(r, 1) = Trim(Mid(logLine, 126, 15))
End If
If InStr(logLine, "IMSI =") Then j = 2
If j = 2 Then
.Cells(r, 2) = Trim(Mid(logLine, 126, 17))
End If
If InStr(logLine, "TMSI =") Then k = 2
If k = 2 Then
.Cells(r, 3) = Trim(Mid(logLine, 126, 10))
End If
If InStr(logLine, "IMEI =") Then m = 2
If m = 2 Then
.Cells(r, 4) = Trim(Mid(logLine, 126, 17))
End If
If InStr(logLine, "Cell Identity =") Then l = 2
If l = 2 Then
.Cells(r, 5) = Trim(Mid(logLine, 126, 16))
End If
If InStr(logLine, "MSC Number =") Then t = 2
If t = 2 Then
.Cells(r, 6) = Trim(Mid(logLine, 126, 15))
End If
If InStr(logLine, "IMSI Attach Flag =") Then f = 2
If f = 2 Then
.Cells(r, 7) = Trim(Mid(logLine, 126, 10))
.cells(r,8)= 'chuyen tu Decimal sang Hexa va chuyen chu thuong sang chu hoa cua cells(r,7)
formMain.Line.Caption = "Line "

 

[ndu96081631]

Chào các bác!
Em có đoạn code lấy dữ liệu từ file text sang excel, nhờ các bác viết thêm giúp e hàm tự động chuyển đổi ký tự từ Decimal sang Hexa (Cells(r,8), cộng thêm việc các ký tự đó chuyển từ chữ thường sang chữ hoa. Thanks các bác!

Trong Excel đã có sẳn hàm này rồi
=DEC2HEX(Num)
Cứ thế áp dụng thôi
Nhớ check Add-In Analysis ToolPak nha
Còn không thì thử hàm này:

Function D2H(Num As Long) As String
  Dim qt As Long, rd As Long, Tmp As String
  qt = Num
  Do
    rd = qt Mod 16
    qt = Int(qt / 16)
    Tmp = Mid("0123456789ABCDEF", rd + 1, 1) & Tmp
  Loop Until qt = 0
  D2H = Tmp
End Function

Check lại, không biết đúng hay không nha!
(Bạn đưa cả rừng code lên cũng bằng thừa, hổng có file thì lấy gì mà kiểm tra)