Chủ đề: Thắc mắc code
-
01-13-2014, 05:26 AM #1Junior 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ọc VBA??
- cong thuc nhap du lieu tu sheet nay sang sheet khac
- Dùng hàm cơ sở dữ liệu để thống kê nhân sự theo độ tuổi, thâm niên & học vấn (hỗ trợ bỡi VBA)
- Tạo một danh sách thả xuống trong cell bất kỳ
- Quay phim và chiếu phim trong Excel!!!
- quản lý kho
- Chuyển kết quả bấm thẻ sang bảng chấm công
- Tạo Form nhập liệu trong exel
- PIVOT TABLE Bảng tổng hợp 3 chiều
- Ngày cuối tháng
-
01-13-2014, 06:21 AM #2Junior 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 #3Junior 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 #4Junior 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 #5Junior 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 #6Junior 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 #7Junior 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 #8Junior 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
Trong lĩnh vực ngân hàng, các tổ chức tín dụng đang phát triển mạnh mẽ, đồng thời phải đối mặt với áp lực từ sự cạnh tranh gay gắt và nhu cầu cải tiến công nghệ. Các ngân hàng thương mại cũng đang...
Tài chính Việt Nam năm 2024: Đánh giá và hướng phát triển mới