Chủ đề: Thắc mắc code
-
01-13-2014, 05:26 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Thắc mắc code
Subdien()
Dim x As Double
Dim y As Double
x = Val(InputBox("nhap x = "))
y = Val(InputBox("nhap y = "))
If x > y Then
For i = y + 1 To x - 1
Cells(i, 1) = i
Next i
End If
If x < y Then
For i = x + 1 To y - 1
Cells(i, 1) = i
Next i
End If
Application.Columns(1).Select
For Each cell In Selection
If cell.Value Mod 2 = 0 Andcell.Value<> "" Then
cell.Interior.Color = vbGreen
End If
Next cell
End Sub
Bây giờ e muốn nhập 1 số âm , 1 số dương bất kỳ hoặc 2 số âm thì sửa code như thế nào các bác cho e ý kiến.View more random threads:
- HỎI VỀ MARCO
- Xin cao thủ VBA chỉ dạy
- Ai biết làm ơn chỉ giúp mình làm phiếu thu chi trên excel với
- Xử lý giúp Lỗi 40040 trong Excel 2003
- Macro gộp nhiều File vào 1 File
- Phần mềm Quản lý kho hàng HTL Warehouse v2.0 (free 1 year)
- Excel - Diễn Giải
- ADO toàn tập
- Nhập ngày hiện tại ở bất kỳ Cell nào bằng Calendar
- Click vào 1 cell sẽ hiện lên cái lịch
-
01-13-2014, 06:21 AM #2
Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 4
Ðề: Thắc mắc code
Gửi bởi akayzai1
Application.Columns(1).Select
Nghĩa là họ chọn cột A rồi . Đâu có cho cơ hội số âm
Muốn số âm thì phải move cột xác định ra phía giữa . Ví dụ la cột F và Row của trục là row =10 . Có vậy ta mới dùng Âm . Khi âm thì nó sẽ cạy sang trái tức là Column chạy từ F đến A, hoặc từ row =10 đến 1 . Số dương thì ngược lại .
Muốn chạy âm hay dương thì dùng Offset nhé
Các cô cậu này học nghành gì vậy mà sao hỏi về toán ko vậy ???
-
01-13-2014, 06:28 AM #3
Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 4
Ðề: Thắc mắc code
Đề bài như vậy bác Flower: Nhập 2 số nguyên bất kỳ bằng inputbox.Điền vào cột A giá trị nằm giữa hai số đó tô màu xanh cho các ô chứa giá trị chẵn
Nhưng khi e nhập x,y là 2 sô dương thì nó đúng.Nhưng khi nhập 1 số dương 1 số âm hoặc 2 số âm thì sai
-
01-13-2014, 07:02 AM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 2
Ðề: Thắc mắc code
Gửi bởi akayzai1
Muốn dùng âm thì Offset(row,col)
Example : x=-1 , y=4
Sub dien()
Dim x As Double
Dim y As Double
x = Val(InputBox("nhap x = "))
y = Val(InputBox("nhap y = "))
Range("A5").Select
If x > y Then
For i = y + 1 To x - 1
Range("A5").Offset(x, 0) = i
Next i
End If
If x < y Then
For i = x + 1 To y - 1
Range("A5").Offset(x, 0) = i
Next i
End If
For Each cell In Selection
If cell.Value Mod 2 = 0 And cell.Value <> "" Then
cell.Interior.Color = vbGreen
End If
Next cell
End Sub
hiểu chưa ???? :alo::alo::alo:
-
01-13-2014, 07:51 AM #5
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Thắc mắc code
ok rồi bác ạ
Sub dien()
Dim x As Double
Dim y As Double
x = Val(InputBox("nhap x = "))
y = Val(InputBox("nhap y = "))
If x > y Then
For i = y + 1 To x - 1
Cells(i - y, 1) = i
Next i
End If
If x < y Then
For i = x + 1 To y - 1
Cells(i - x, 1) = i
Next i
End If
Application.Columns(1).Select
For Each cell In Selection
If cell.Value Mod 2 = 0 And cell.Value <> "" Then
cell.Interior.Color = vbGreen
End If
Next cell
End Sub
-
01-13-2014, 07:56 AM #6
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Thắc mắc code
Gửi bởi Wind_Flower
e cần lập 1 hàm làm tròn số về đuôi 0 hoặc 5 .Số có chữ số cuối cùng < 5 thì làm tròn =5, >=5 thì làm tròn =0.Vd: 34 làm tròn = 35,23=25; 25=30, 36=40.Nhưng khi e viết nó lại chỉ làm tròn đc về 0
Function tong(a As Double, b As Double) As Double
x = a + b
y = x Mod 10
If x <= 5 Then
tong = 5
End If
If 5 < x <= 10 Then
tong = 10
End If
If x > 10 Then
If y = 0 Or y = 5 Then
tong = x
End If
If 0 < y < 5 Then
tong = x - y + 5
End If
If 5 < y < 10 Then
tong = x - y + 10
End If
End If
End Function
-
01-13-2014, 02:33 PM #7
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: Thắc mắc code
Gửi bởi akayzai1
b là Divisor . Tại sao x = a + b !!!!!!!!!!!!!!
y = x Mod 10 !!!!!!!!!!!!!!!!
trong VBA dau có MOD()
:chetne::chetne:
Theo như đại sư CPearson thì VBA pfải tự viết là
Function XMod(ByVal Number As Double, ByVal Divisor As Double) As Double
Number = Int(Abs(Number))
Divisor = Int(Abs(Divisor))
XMod = Number - (Int(Number / Divisor) * Divisor)
End Function
Còn như dùng formula thì =MOD(Number,Divisor )
Ví dụ
Muốn 23 thành 25 thì
=ROUND(23+MOD(23,3),0)
-
01-13-2014, 02:33 PM #8
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 7
Ðề: Ăn tiền ở chổ xài toán tử "\" đó nha!
Mã:Option Explicit Function LàmTrònDén05(Num As Double) Dim So As Long If Int(Num) = Num Then LàmTrònDén05 = Num Else So = Num * 10 \ 1 Select Case (So Mod 10) Case Is < 5 LàmTrònDén05 = Int(Num) + 0.5 Case Else LàmTrònDén05 = Int(Num + 1) End Select End If End Function
Du lịch Indonesia - Nếu bạn đang tìm kiếm những cảm giác mới lạ thú vị thì "xứ vạn đảo" Indonesia sẽ là một sự lựa chọn không thể bỏ qua. Indonesia với hàng ngàn đảo lớn nhỏ, cùng những cảnh quan...
Tour du lịch Indonesia được Dulichviet tổ chức đặc sắc như thế nào?