excel中如何实现16进制与10进制数字的转换

[yuanshengbing]

如题，是否有该类函数实现16进制与10进制的转换？
或者使用宏？该如何编写？

[baiyu20122]

使用函数 DEC2HEX

[ccnp_Server]

For h = 1 To 10
With Worksheets("Sheet1").Cells(h, 1)
.Value = Val("&H" & Worksheets("Sheet1").Cells(h, 1).Text)
End With
Next h

--------------------------
Sub mapinfo()

'如果sheet1中某两个个单元格中的值 分别等于 sheet2中某两个值 则 进行 赋值
'为什么报错？ 怎么改呀？

For n = 2 To 230
For m = 2 To 523

If Worksheets("Sheet1").Cell(n, 6).Value == Worksheets("Sheet2").Cell(m, 1).Value && Worksheets("Sheet1").Cell(n, 7).Value = Worksheets("Sheet2").Cell(m, 2).Value Then
Worksheets("Sheet1").Cell(n, 8).Value = Worksheets("Sheet2").Cell(m, 3).Value

End If
Next m
Next n

End Sub