Hücre Biçimlendirmede Uzunluk Değer Oluşturma

[İbrahim Albayrak]

Arkadaşlar Merhaba,

Excel de hücreye girdiğim değeri uzunluk ölçüsü olarak (cm) girmek istiyorum. Excelin hazır hücre biçimlerinde uzunluk değeri yok. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.

 

[Mahir64]

Merhaba,

Hücreleri biçimlendir > isteğe uyarlanmış > tür kısmına Genel "cm" olarak giriş yaparak deneyiniz.

 

[İbrahim Albayrak]

Bir sorum daha olacak,

Bir dikdörtgenin uzun ve kısa kenarlarını vererek alan hesabını yaptırmak istiyorum. Çıkan sonuç içerisine daha küçük dikdörtgen veya karelerin hesaplanarak kaç adet sığacağını hesaplaması mümkün mü..

Örnek :

70cm x 100 cm ebatında bir dikdörtgenin içerisine kaç adet 20 cm x 28 cm sığdırabilirim..

Tabi çıkan sonucun çift bir rakam olması da lazım.

Teşekkürler.

 

[İbrahim Albayrak]

Mahir Bey, cm olarak değer girdiğim zaman hücredeki sayıyı göremiyorum "cm" yazıyor sadece. ikinci yazdığım soru aslında daha açıklayıcı oldu, onun üzerinden cevaplayabilirseniz sevinirim. Teşekkürler.

 

[NBATMAN]

Merhaba,
İbrahim Albayrak'ın derdine çare değil gibi görünse de (benzer sorunlara ihtiyaç olabileceğini düşündüğüm konu hakkında) bir şeyler yaptım umarım yararlı olur. İbrahim bey Altın Üye olabilirseniz ekteki dosyayı indirip sizde ihtiyacınız doğrultusunda farklı bir çözüm ile kullanabilirsiniz...Ben yinide dosya indiremeyecekler için kodları da aşağıda ekliyorum. Kolay gelsin...

Option Explicit
Dim AnaA As Double
Dim AnaB As Double
Dim AnaC As Double
Dim kucA As Double
Dim kucB As Double
Dim kucC As Double
Private Sub CommandButton1_Click()

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox ("Kenar ölçülerinin girildiği kutular boş olamaz!" & vbNewLine & vbNewLine & "Kontrol edip tekrar deneyiniz."), vbExclamation, "Dikkat"
If TextBox1.Text = "" Then
TextBox1.SetFocus
Exit Sub
End If
If TextBox2.Text = "" Then
TextBox2.SetFocus
Exit Sub
End If
If TextBox3.Text = "" Then
TextBox3.SetFocus
Exit Sub
End If
If TextBox4.Text = "" Then
TextBox4.SetFocus
Exit Sub
End If
Else
AnaA = TextBox1.Text
AnaB = TextBox2.Text
kucA = TextBox3.Text
kucB = TextBox4.Text
AnaC = Val(TextBox1.Text) * Val(TextBox2.Text)
Label1.Caption = AnaC
kucC = Val(TextBox3.Text) * Val(TextBox4.Text)
Label2.Caption = kucC
End If
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub


Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Label1.Caption = "0"
TextBox3.Text = ""
TextBox4.Text = ""
Label2.Caption = "0"
Label23.Caption = "0"
Label24.Caption = "0"
Label25.Caption = "0"
Label26.Caption = "0"
Label29.Caption = ""
End Sub



Private Sub CommandButton3_Click()

Dim KUCAQTY As Currency
Dim KUCBQTY As Currency
Dim KENASAY As Integer
Dim KENBSAY As Integer
Dim KENCSAY As Integer

KUCAQTY = AnaA / kucA
KUCBQTY = AnaB / kucB
'******************************************************************************
        Dim sayiA As Double
        Dim tamkismiA As Integer
        sayiA = Val(KUCAQTY)
        tamkismiA = Int(KUCAQTY)
        If sayiA > tamkismiA Then Label23.Caption = tamkismiA + 1 Else Label23.Caption = sayiA
        Label25.Caption = Val(Label23.Caption) * kucA
'******************************************************************************
        Dim sayiB As Double
        Dim tamkismiB As Integer
        sayiB = Val(KUCBQTY)
        tamkismiB = Int(KUCBQTY)
        If sayiB > tamkismiB Then Label24.Caption = tamkismiB + 1 Else Label24.Caption = sayiB
        Label26.Caption = Val(Label24.Caption) * kucB
'******************************************************************************

KENASAY = Label23.Caption
KENBSAY = Label24.Caption
If KENASAY = 0 Or KENBSAY = 0 Then
MsgBox ("Ana Dikdörtgen ile Küçük Dikdörtgen Kenar Ölçülerinde Uygunsuzluk Söz Konusu!" & vbNewLine & vbNewLine & "Kontrol edip tekrar deneyiniz."), vbExclamation, "Dikkat"
CommandButton3.Enabled = False
Else
KENCSAY = KENASAY * KENBSAY
Label29.Caption = "Küçük Dikdörtgenden Büyük Dikdörtgen İçine " & KENCSAY & " Adet Sığmaktadır"
End If

End Sub
Private Sub UserForm_Initialize()
CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = False

TextBox1.Text = ""
TextBox2.Text = ""
Label1.Caption = "0"
TextBox3.Text = ""
TextBox4.Text = ""
Label2.Caption = "0"
Label23.Caption = "0"
Label24.Caption = "0"
Label25.Caption = "0"
Label26.Caption = "0"
Label29.Caption = ""
End Sub