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:
- Tạo form để ra được báo cáo như biểu số này để nhập liệu
- Xóa vùng các dòng một khi 1 ô trong vùng đạt điều kiện (cần xóa)
- Thư viện dành cho dân lập trình Visual Basic
- Giúp đỡ e liên kết sheet với :D
- Cho ra số lượng theo % cho trước
- Tạo Form dùng ListBox và hàm Find để tìm.
- VBA Copy file và đổi tên file từ thư mục này qua thư mục khác
- Chuyên Đề : Trích Lọc Sổ Cái
- Tạo Form Nhập Liệu Trong Excel
- Tạo dòng cộng cuối trang sổ nhật ký chung bằng Excel
-
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
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?