Microsoft Excel , FAQ

mkgnmc
12ვე შიტზე მაქსიმალურის პოვნა და მისამართის მოძებნა არ ვიცი მარა 1 შიტზე გაგიკეთებ.

სურათი ან ფაილი ატვირთე უკეთ რომ მივხვდე რა ხდება და აგიხსნი

Hybrid-Theory
ყველა შიტზე ერთიდაიგივე E სვეტში არის ჩამოწერილი რიცხვები დაახლოებით 200-მდე. მთელი რიცხვები არ არის და მერყეობს 0-25 ფარგლებში. მინდა რომ ნებისმიერ უჯრაში მაჩვენოს მაქსიმალური რიცხვი და გვერდით ამ უჯრის "მისამართი". ერთი შიტზე რომ იყოს მარტო, ხელითაც მოძებნიდა კაცი, მაგრამ რმდენიმე შიტზე ცოტა ძნელი იქნება. ერთ შიტზე თუ მასწავლი, იქნებ მერე განვაზოგადო ან რაიმე მოვუფიქრო.
მადლობა წინასწარ!!

mkgnmc

მაქსიმალური რიცხვისათვის შეგიძლია ე.წ. 3D ფორმულა გამოიყენო:

=MAX(აქ ჩაწერე როგორც ქვემოთ წერია)

1) მონიშნე პირველი გვერდი
2) დააჭირე shift და მონიშნე ბოლო გვერდი
3) მონიშნე E სვეტი და Enter

რაც შეეხება მისამართის დაწერა 3D ფორმულები შეზღუდულია და ყველა ფორმულით ვერ გააკეთბ, ამ შემთხვევაში შეიძლება VBA -ს გამოყენება

აქ არის ფორმულის კოდი რომელიც უნდა ჩასვა მოდულში

Function look(valueL As Variant, areali As Range)
Dim sh As Worksheet
Dim firstc%, lastc%, firstr%, lastr%
firstc = areali.Column
lastc = areali.Columns.Count
firstr = areali.Row
lastr = areali.Rows.Count
For Each sh In Worksheets
For i = firstc To lastc
If sh.Cells(firstr, i).value = valueL Then
pasuxi = sh.Name & "!" & Cells(firstr, i).Address
GoTo endfunction
End If
If i = lastc Then
i = firstc
firstr = firstr + 1
End If
If firstr > lastr Then GoTo nextstep
Next i
nextstep:
Next sh
endfunction:
look = pasuxi
End Function

ალბათ შეიძლება უფრო მოკლე კოდის დაწერა მაგრამ ეხლა მეზარება ამაზე ფიქრი )))

ფუნქცია მუშაობს ასე:

აქვს ორი არგუმენტი

1)რას ვეძებთ - მონიშნავ უჯრას სადაც მაქსიმალური რიცხვი მიიღე
2)მონიშნავ არეალს (შენს შემთხვევაში E1:E250) არ არის აუცილებელი გვერდის დასახელების მითითება ის მთელს არსებულ გვერდებზე მოძებნის ამ რიცხვს რასაც ეძებ და დაგიწერს უჯრის სრულ მისამართს (გვერიდს სახელი!უჯრა)

P.S. ყველაზე კარგი ვარიანტია თუ გამოიყენებ name managers, დაარქმევ დავუშვათ E1:E500 რაიმე სახელს და ამ ფორმული მეორე არგუმენტში პირდაპირ სახელს ჩაწერ.

გამარჯობათ,
ხო არ იცით როგორ დავბლოკო ექსელის ვორკშითი ისე რო ვერ შეძლოს მისი წაშლა და შიგნით იმუშაოს და შეინახოს..
ანუ მარტო ედიტი ქონდეს... რაღაცეები კი ვიცი მარა წაშლამდე ვერ მივედი

chabakaury
რისი წაშლა, უჯრის თუ გვერდის მთლიანად?

Mrexcel86

name manager ვერ ვნახე, სად არის?

mkgnmc
შეგიძლია მარტივად მონიშნო არეალი და დაარქვა სახელი

გადახედე ამ აქ რომელიმეს

https://www.youtube.com/results?search_query=name+manager

Mrexcel86

მთლიანი ვორკშიტის.. ანუ მთლიანი ფაილის წაშლა რო შევზღუდო?

mkgnmc
მცირედი შესწორება ჩემს კოდში )

Function look(valueL As Variant, areali As Range)
Dim sh As Worksheet
Dim firstc%, lastc%, firstr%, lastr%
For Each sh In Worksheets
firstc = areali.Column
lastc = areali.Columns.Count
firstr = areali.Row
lastr = areali.Rows.Count
For i = firstc To lastc
If sh.Cells(firstr, i).value = valueL Then
pasuxi = sh.Name & "!" & Cells(firstr, i).Address
GoTo endfunction
End If
If i = lastc Then
i = firstc
firstr = firstr + 1
End If
If firstr > lastr Then GoTo nextstep
Next i
nextstep:
Next sh
endfunction:
look = pasuxi
End Function
* * *
chabakaury

VBA-ს თუ გამოიყენებ კოდს დაგიწერ!

გამარჯობათ,

მაქვს ორი ექსელის ფაილი რომელშიც მოცემული მაქვს სამი ძირითადი ინფორმაცია,
ორგანიზაცია, თარიღი და თანხა.

მინდა ამ ორი ფაილის ერთმანეთთან შედარება.
შედარება შეიძლება მოხდეს ორგანიზაციით ან თარიღით რომელიც ორივეგან იდენტურათ ეწერება.

დავუშვათ მაქვს მოცემული პირველ ფაილში ორგანიზაცია ნატახტარი რომელმაც შემომიტანა 20.05.2014 ლუდი 100 ლარის,

მაქვს მეორე ფაილი რომელშიც მიწერია რომ ორგანიზაცია ნატახტარმა შემომიტანა 20.05.2014 ში 90 ლარის.

მინდა პირველ ფაილში მესამე გრაფა სადაც გადმომიტანს მეორე ფაილის მონაცემს, რომ 20.05.14 ში ნატახტარმა 100 ლარის კი არა 90 ლარის შემომიტანა

მაგრამ ერთიდაიგივე თარიღში შეიძლება ორჯერ მეწეროს ნატახტარი და მინდა ორივე ნატახტარს-ს ცალკე მიასვას თანხა რომელიც ეკუთვნის შესაბამის თარიღს

ნუ რათქმა უნდა ერთ დღეზე არ მაქვს საუბარი, თარიღი მეორდება და თან შეიძლება 20.05.14 ნატახტარის გარდა სხვა კომპანიებიც იყოს შემოსული, მაგრამ ამოცანა იმითაც რთულდება რომ კომპანიებს შორის სხვაობა დღიურად 1 ლარით უნდა დავუშვათ თუ ერთ ფაილში 100 ლარია და მეორეში 99 უნდა მიუსვას მაინც :|

ნამეტანია ხო?


მარტივი მეორე საკითხი



ციფრები კი დავამრგვალე Number ში გადაყვანით მაგრამ რეალურად უჯრაზე რომ ვდგები მაინც დაუმრგვალებელს მიჩვენებს რაც ფორმულაში ხელს მიშლის, ისე როგორ დავაკოპირო რომ უჯრაზე დადგომისასაც დამრგვალებულად აღიქვას

This post has been edited by პოსტოჰოლიკ on 20 May 2014, 17:21

პოსტოჰოლიკ

მეორე კითხვიდან დავიწყებ, ფორმატი ვზუალური მხარეა და თუ რეალური ცვლილება გინდა შეგიძლია გმოიყენო ფორმულა ROUND(მონიშნე რიცხვი, ჩაწერე რიცხვითი მნიშვნელობა სადამდეც გინდა დაამრგვალოს) ვთქვათ:
5,6725 >>> ROUND ( 5.6725, 1)=5.7

რაც შეეხება პირველ კითხვას, იქიდან გამომდინარე რომ VLOOKUP თუ ნებისმიერი სხვა სტანდარტული საძიებო ფორმულა პირველ მონაცემის პოვნით შემოიფარგლება და კიდევ იმიტომ რომ VBA-თან ნაკლებად მეგობრობს ხალხი დაგიწერ რამდენიმე ეტაპს რაც ჩემი აზრით აუცილებელია ამ ამოცანის გადასაჭრელად:

1) რადგან გვჭირდება რაღაცით უნიკალური გავხადოთ ჩანაწერები და ამავდროულად ეს უნიკალურიობა გავრცელდეს ოივე ფაილისთვის, ჩაამატე თითოეული ცხრილის მარცხნივ ორივე ფაილში ცარიელი სვეტი და პირველივე ჩანაწერის გვერდით დაწერე ასეთი ფორმულა (ვთვათ მონაცემები იწყება B1 უჯრიდან და წერია პირობითად 100 ჩანაწერი)

A1 უჯრაში წერ countifs($B$1:B1,B1,$C$1:C1,C1) და ჩამოაკოპირებ ჩანაწერის ბოლომდე (მე-100 სტრიქონამდე).

პირველ ფაილში:
A სვეტში გვაქვს რიცხვები (რაც ფორმულით მივუწერეთ)
B სვეტში გვაქვს კომპანიის სახელები
C სვეტში გვაქვს თარიღები
D სვეტში გვაქვს ის თანხები რისი შემოწმებაც გვინდა

მეორე ფაილში:
A სვეტში გვაქვს რიცხვები (რაც ფორმულით მივუწერეთ)
B სვეტში გვაქვს კომპანიის სახელები
C სვეტში გვაქვს თარიღები
D სვეტში გვაქვს ის თანხები რასაც ვეძებთ


2)პირველი ფაილის E1 უჯრაში წერ VLOOKUP(A1&B1&C1,CHOOSE({1,2},$A$1:$A$100&$B$1:$B$100&$C$1:$C$100,$D$1:$D$100),2,0) და ვაჭერთ CTRL+SHIFT+ENTER

CHOOSE({1,2},$A$1:$A$100&$B$1:$B$100&$C$1:$C$100,$D$1:$D$100) ამ ფორმულის ყველა მისამართს ვიღებთ მეორე ფაილიდან საიდანაც მონაცემები უნდა მოვძებნოთ

ამის შემდეგ შეგიძლია მარტივად შეადარო რამდენად განსხვავდება გვერდიგვერდ ჩაწერილი მონაცემები


P.S რათქმაუნდა VBA უკეთესი გამოსავალია

This post has been edited by Mrexcel86 on 21 May 2014, 18:46

Mrexcel86
უკვე მერამდენეთ მომიმართე ხელი მადლობის მეტი რა მეთქმის ცოტა სხვანაირად მოვირგე მაგრამ მიზანს მიმაღწევინე

Mrexcel86
რამდენიმე შიტზე ჩამოწერილი რიცხვებიდან მაქსიმალურის მოძებნა გამაკეთებინე 3დ ფორმულით, ახლა კიდევ ერთი კითხვა მაქვს: ამ რიცხვების გვერდით ჩამოწერილია გვარები, შეიძლება თუ არა მაქსიმალური რიცხვის გვერდით დაწერილი გვარი რომელიმე ფორმულით მოვნახო?

პოსტოჰოლიკ

ძალიან კარგი

mkgnmc

როგორც ვხედავ შენ ერთ სვეტში გაქვს მონაცემები

1) გამოითვალე მაქსმიმალური მონაცემი
2) ჩასვი მოდულში ეს კოდი:
Function look(valueL As Variant, areali As Range)
Dim sh As Worksheet
Dim firstc%, lastc%, firstr%, lastr%
For Each sh In Worksheets
firstc = areali.Column
firstr = areali.Row
lastr = areali.Rows.Count
For i = firstr To lastr
If sh.Cells(i, firstc).Value = valueL Then
pasuxi = sh.Name & "!" & Cells(i, firstc).Address
GoTo endfunction
End If
If firstr > lastr Then GoTo nextstep
Next i
nextstep:
Next sh
endfunction:
look = pasuxi
End Function

დაარქვი რომელიმე გვერდზე მაგ სვეტს სახელი მაგ: myrange

3)მოძებნე გვარი =offset(indirect(look("მაქსიმალური რიცხვი", myrange)),,1)

vlookup-ით არ გამო? ერთ შიტზე მსგავს დავალებას ხომ ასრულებს და რამდენიმეზე ვერ იზამს?