Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [ Hỏi ] Cách lấy code VBA trong excel [In trang]

Tác giả: gabatosic Thời gian: 13/9/2020 15:39
Tiêu đề: [ Hỏi ] Cách lấy code VBA trong excel
Chào các anh, trong file excel có hàm tính thép tổ hợp, mà em xem hàm với lấy code không được . Nhờ các anh giúp e với ạ, cám ơn nhiều

: Đăng nhập/Đăng ký mở rộng

BOQ new.xlsm

367.53 KB, Lượt tải về: 1859

Tác giả: khanhmytho Thời gian: 15/9/2020 10:00
File VBA có đặt pass nên sẽ không lấy được code

Tác giả: duyenvt Thời gian: 23/9/2020 15:04
Cùng chung thắc mắc vì cũng cần cái ứng dụng VBA để làm file tổng hợp từ khóa cho nhanh

Tác giả: ducdudl Thời gian: 8/1/2021 15:40
Function tt(Mystr As String, Optional Dautp As String) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr, ":")
s = Right(Mystr, Len(Mystr) - i)
tt = Evaluate("=" & s)
End Function

Function dt(Mystr As String, Optional Dautp As String) As Double
Dim i As Integer
Dim s As String
i = InStr(1, Mystr, ":")
dt = Evaluate("=" & i)
End Function

Function theptohop(Mystr As String, Optional Dautp As String) As Double
Dim z1, z2 As Integer
z1 = InStr(1, Mystr, "x")
z2 = InStr(1, Mystr, "~")
If z1 = 10 Then
Dim a, b, c, d, e, f As String
Dim x1, x2, x3, x4, x5, x6, x7, x8 As Integer
Dim bb, bc, tong As Double
x1 = InStr(1, Mystr, ":")
x2 = InStr(1, Mystr, "x")
x3 = InStr(1, Mystr, "-")
x4 = InStr(1, Mystr, ",")
x5 = InStr(1, Mystr, "L")
x6 = InStr(1, Mystr, ".")
x7 = InStr(1, Mystr, "[")
x8 = InStr(1, Mystr, "]")
a = Mid(Mystr, x1 + 2, x2 - x1 - 2)
b = Mid(Mystr, x2 + 1, 3)
c = Mid(Mystr, x2 + 5, x3 - x2 - 5)
d = Mid(Mystr, x3 + 1, x4 - x3 - 1)
e = Mid(Mystr, x5 + 2, x6 - x5 - 2)
f = Mid(Mystr, x7 + 4, x8 - x7 - 4)
bb = Evaluate("=" & a * c * e * 10 ^ (-9) * 7850 * f)
bc = Evaluate("=" & b * d * e * 10 ^ (-9) * 7850 * 2 * f)
tong = bb + bc
theptohop = tong
Else
If z2 = 11 Then
Dim a1, a2, b1, c1, d1, e1, f1 As String
Dim y1, y2, y3, y4, y5, y6, y7, y8, y9 As Integer
Dim atb, bb1, bc1, tong1 As Double
y1 = InStr(1, Mystr, "(")
y2 = InStr(1, Mystr, "~")
y3 = InStr(1, Mystr, ")")
y4 = InStr(1, Mystr, "-")
y5 = InStr(1, Mystr, ",")
y6 = InStr(1, Mystr, "L")
y7 = InStr(1, Mystr, ".")
y8 = InStr(1, Mystr, "[")
y9 = InStr(1, Mystr, "]")
a1 = Mid(Mystr, y1 + 1, y2 - y1 - 1)
a2 = Mid(Mystr, y2 + 1, y3 - y2 - 1)
b1 = Mid(Mystr, y3 + 2, 3)
c1 = Mid(Mystr, y3 + 6, y4 - y3 - 6)
d1 = Mid(Mystr, y4 + 1, y5 - y4 - 1)
e1 = Mid(Mystr, y6 + 2, y7 - y6 - 2)
f1 = Mid(Mystr, y8 + 4, y9 - y8 - 4)
atb = Evaluate("=" & a1 / 2 + a2 / 2)
bb1 = Evaluate("=" & atb * c1 * e1 * 10 ^ (-9) * 7850 * f1)
bc1 = Evaluate("=" & b1 * d1 * e1 * 10 ^ (-9) * 7850 * 2 * f1)
tong1 = bb1 + bc1
theptohop = tong1
Else
theptohop = "kiem tra lai text"
End If
End If
End FunctionFunction sontheptohop(Mystr As String, Optional Dautp As String) As Double
Dim z1, z2 As Integer
z1 = InStr(1, Mystr, "x")
z2 = InStr(1, Mystr, "~")
If z1 = 10 Then
Dim a, b, c, d, e, f As String
Dim x1, x2, x3, x4, x5, x6, x7, x8 As Integer
Dim bb, bc, tong As Double
x1 = InStr(1, Mystr, ":")
x2 = InStr(1, Mystr, "x")
x3 = InStr(1, Mystr, "-")
x4 = InStr(1, Mystr, ",")
x5 = InStr(1, Mystr, "L")
x6 = InStr(1, Mystr, ".")
x7 = InStr(1, Mystr, "[")
x8 = InStr(1, Mystr, "]")
a = Mid(Mystr, x1 + 2, x2 - x1 - 2)
b = Mid(Mystr, x2 + 1, 3)
c = Mid(Mystr, x2 + 5, x3 - x2 - 5)
d = Mid(Mystr, x3 + 1, x4 - x3 - 1)
e = Mid(Mystr, x5 + 2, x6 - x5 - 2)
f = Mid(Mystr, x7 + 4, x8 - x7 - 4)
bb = Evaluate("=" & a * e * 10 ^ (-6) * f * 2)
bc = Evaluate("=" & b * e * 10 ^ (-6) * 2 * f * 2)
tong = bb + bc
sontheptohop = tong
Else
If z2 = 11 Then
Dim a1, a2, b1, c1, d1, e1, f1 As String
Dim y1, y2, y3, y4, y5, y6, y7, y8, y9 As Integer
Dim atb, bb1, bc1, tong1 As Double
y1 = InStr(1, Mystr, "(")
y2 = InStr(1, Mystr, "~")
y3 = InStr(1, Mystr, ")")
y4 = InStr(1, Mystr, "-")
y5 = InStr(1, Mystr, ",")
y6 = InStr(1, Mystr, "L")
y7 = InStr(1, Mystr, ".")
y8 = InStr(1, Mystr, "[")
y9 = InStr(1, Mystr, "]")
a1 = Mid(Mystr, y1 + 1, y2 - y1 - 1)
a2 = Mid(Mystr, y2 + 1, y3 - y2 - 1)
b1 = Mid(Mystr, y3 + 2, 3)
c1 = Mid(Mystr, y3 + 6, y4 - y3 - 6)
d1 = Mid(Mystr, y4 + 1, y5 - y4 - 1)
e1 = Mid(Mystr, y6 + 2, y7 - y6 - 2)
f1 = Mid(Mystr, y8 + 4, y9 - y8 - 4)
atb = Evaluate("=" & a1 / 2 + a2 / 2)
bb1 = Evaluate("=" & atb * e1 * 10 ^ (-6) * f1 * 2)
bc1 = Evaluate("=" & b1 * e1 * 10 ^ (-6) * 2 * f1 * 2)
tong1 = bb1 + bc1
sontheptohop = tong1
Else
sontheptohop = "kiem tra lai text"
End If
End If
End Function

Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)