Parengti dalyvavimo ataskaitą su „Excel“ lapu

Dalyvavimo ataskaitą galima lengvai parengti „Excel“ lape. Yra keletas būdų, kurie yra būtini norint surengti „ Excel“ lapus . Paruoškite „Excel“ lapą, kuriame nurodomas dalyvių procentas per mėnesį. Vartotojas taip pat turės parengti lankomumo ataskaitos šabloną. Tai būtų lengviau paleisti makro formatu. Atidarykite naują darbalapį, kuriame yra lankomumo ataskaitos šablonas. Būtina gauti duomenis iš lankomumo lentelės darbalapio . Paruoškite stulpelius, kuriuose yra duomenų. Dabar pervadinkite naują darbo lapą . Pakartokite procesą, kol jis pasiekia tuščią langelį. „Office“ programinė įranga yra labai naudinga rengiant lankomumą.

Parengti dalyvavimo ataskaitą su „Excel“ lapu

Problema
Sprendimas
Pastaba

Problema

Mūsų departamente dirba 60 gyventojų. Jie kasdien dalyvauja rytinėje ataskaitoje. Taigi parengiau „Excel“ lapą (pavadintą lankomumo lentelę), kurioje yra A1: A60 stulpeliai su gyventojų B1 pavadinimais: B60 ir lankomumo procentas vienam mėnesiui. Mano darbas yra parengti dalyvių ataskaitą kiekvienam gyventojui. Parengiau lankomumo ataskaitos šabloną. Dabar noriu paleisti makrokomandą, kuris atliks šiuos dalykus:

1. Atidarykite naują darbalapį iš šablono darbo knygoje, kurioje yra „Dalyvavimo lentelės darbalapis“

2. Ji turėtų atnešti duomenis iš „Atvykimo lentelės“ darbalapio

a. Iš pirmojo A1 stulpelio ir įdėkite šablono pavadinimo lauką (naujas darbalapis atidarytas pirmame etape) (visada D6)

b. Duokite duomenis iš B1 ir padarykite procentinį šablono lauką (F10)

c. Ji turėtų pervadinti darbalapio skirtuką su duomenimis iš A1 (ty rezidento pavadinimas)

3. Jis turėtų pakartoti 2 veiksmą, kol jis pasieks tuščią langelį

Ar kas nors gali man padėti parašyti makrokomandą?

Sprendimas

 "Dalyvavimo ataskaita. \ T
„Atidarykite naują darbalapį, vadinamą lankomumo darbų lentele
„Su dalyvavimo lentelės duomenimis
„Gyventojų vardas yra D6
„Dalyvavimo procentas vienam mėnesiui iki F10
„Pervardykite lapą į rezidentų vardą ir vėl pradėkite
„Visiems stalo gyventojams
„Sub AttendanceReport“ ()
„Dim cCell As Object“, „i“ kaip „Integer“ „Du kintamieji cCell (dabartinis ląstelių) objektas ir i (standartinis skaičiavimo sveikasis skaičius)
Ląstelės (1, „A“). Pasirinkite „Užtikrinkite, kad kiekvieną kartą pradėtume dirbti darbalapio viršuje
Application.ScreenUpdating = False 'Ekrano atnaujinimų keitimas, kai makro veikia
Kiekvienam cCell In Range (ląstelės (1, "A"), ląstelės (1, "A"). Pabaiga (xlDown)) "Vyks mūsų kodas per kiekvieną langelį su tekstu
Set NewSheet = Sheets.Add (tipas: = xlWorksheet) 'Pridėti naują darbalapį
NewSheet.Name = "Dalyvavimo lentelės darbalapis" pervadina darbalapį
Lakštai („Dalyvavimo lentelės darbalapis“). Ląstelės (6, „D“). Vertė = cCell.Value “įdėti gyventojų vardas yra langelis D6
Lakštai („Dalyvavimo lentelės darbalapis“). Ląstelės (10, „F“). Reikšmė = cCell.Offset (0, 1).
Lakštai („Dalyvavimo lentelės darbalapis“) Pavadinimas = cCell.Value
Kitas cCell
Pabaiga