好人好事

兒童禮儀培訓視頻

0 發布于2017-12-14 閱讀: 416 次

提起禮儀,很多人都感覺只有成年人才需要學習禮儀方面的知識,事實上,兒童也需要學習。 父母該如何教孩子學會禮儀成為一個懂禮貌的小孩子,到底應該培養呢? 孩子是一張白紙、我們教給孩子什么,孩子就能學到什么。 要想讓孩子成為一個懂禮貌的孩子,就得從小培養孩子的禮儀。 要讓幼兒成為一個講文明、懂禮貌的人,使幼兒擁有一個健全的人格和自信的人生,早期的引導和教育尤為重要。 由于很多家長過度寵 ......

下面是兒童禮儀培訓視頻播放地址,歡迎觀看

http://www.51xue8.com/xiaoxue/xueqianjiaoyu/2016-01-09/11084.html

Excel2013如何合并多個工作表內容

0 發布于2017-04-27 閱讀: 567 次
剛剛朋友打電話過來找我幫忙合并一個Excel文件中很多工作表的內容,文件中大概有幾十個工作表,每個工作表中又有成百上千條的數據,如果手工合并的話估計很累,在網上查詢了一下,可以通過代碼來完成合并,記錄在此,分享出來,希望能幫助有需要的朋友。步驟如下:
新建一個“數據合并.xlsx“文檔,把需要合并的excel表格文檔放到同一個文件夾里。
打開“數據合并.xlsx“文檔,在”Sheet1“工作表的地方右鍵→查看代碼(快捷鍵:“Alt+F11”,盡量選用快捷方式)進入到Microsoft Visual Basic for Applications窗口
雙擊工程資源管理器里面的sheet1,在右側的代碼區粘貼如下代碼:
	Sub 合并當前目錄下所有工作簿的全部工作表() 
Dim MyPath, MyName, AWbName 
Dim Wb As Workbook, WbN As String 
Dim G As Long 
Dim Num As Long 
Dim BOX As String 
Application.ScreenUpdating = False 
MyPath = ActiveWorkbook.Path 
MyName = Dir(MyPath & "\" & "*.xls") 
AWbName = ActiveWorkbook.Name 
Num = 0 
Do While MyName <> "" 
If MyName <> AWbName Then 
Set Wb = Workbooks.Open(MyPath & "\" & MyName) 
Num = Num + 1 
With Workbooks(1).ActiveSheet 
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 
For G = 1 To Sheets.Count 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 
Next 
WbN = WbN & Chr(13) & Wb.Name 
Wb.Close False 
End With 
End If 
MyName = Dir 
Loop 
Range("A1").Select 
Application.ScreenUpdating = True 
MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" 
End Sub
運行→運行子過程/用戶窗體(或者直接點擊運行按鈕,快捷鍵:F5),即可合并所有Excel表格到”數據合并.xlsx“文檔的Sheet1工作表里面
這樣就完成了Excel表格的合并,如果你正好需要并且看到了這篇文章,解決了你的問題,希望能在下面留個言,謝謝。
更多辦公軟件的使用歡迎加入WPS交流QQ群:168486055
剛買回家的香菇,褶皺里有很多黑色的小顆粒,如何清洗更方便?下面介紹一種非常方便的香菇清洗方法。
 
只要往水里加這樣東西就能搞定!
 
首先用洗菜盆接一盆水,將香菇放入水中,然后倒入2勺淀粉,用手攪拌水中的香菇,過一會兒把香菇撈出來,黑色的小顆粒都留在了菜盆中。
xianggu.jpg

北京暴雨后組織捐款引起民意反彈

0 發布于2012-07-25 閱讀: 1,846 次
任何一項捐款都應該合情、合理、合法。誠如網友所言,號召北京市民捐款既在情理上站不穩腳,也顯得有點牽強與突兀,倘若在其使用的合法性方面也缺少必要的承諾與行動,將很難消除市民的疑惑。 北京日前召開相關會議決定,由機關黨員干部帶頭,在全市范圍內發起為“7·21”特大自然災害救災捐款活動,號召和凝聚全市群眾眾志成城,以實際行動參與到救災工作中來。北京有關方面隨即公布了捐贈賬號。但可能讓人始料不及的是,這一捐款呼吁遭遇了較為明顯的民意反彈,不少人在網上對此說“不”。
一場突如其來的暴雨牽動人心,它使北京的受災面積達1.6萬平方公里,成災面積1.4萬平方公里,約190萬人受災。據北京本地媒體報道,截至目前,“京郊多地的災民已經住進了帳篷,但帳篷內僅有行軍床等設施,十分簡陋,帳篷內溫度高達37℃至38℃,沒有電風扇,生活仍然非常困難,亟須各方伸手救援。”一方有難,八方支援,本是我們這個民族的固有傳統,可這一次,它為何沒能像以往一樣,引起民意積極甚而強勁的呼應?為什么?
中國·北京·首都 能不能不要有點事就捐款? 能不能少支援點國外?把省下來的錢用在國內的老百姓身上? 我特別想捐款,可是我又想  我有資格來捐這個款嗎?我不是北京戶口、保險和個稅繳納未滿5年....... 我不知道我能不能捐這個款,希望知道的朋友告訴我下,多謝!
據中國之聲《央廣新聞》報道,5·8交通事故中勇救學生的龍江“最美女教師”張麗莉轉入哈爾濱市醫科大學附屬第一醫院ICU重癥監護病房已經超過24小時,最新的治療情況如何?   記者現在正在哈醫大醫院里,從昨天第一次專家會診發布病情,到現在已經過去了將近20個小時,目前張麗莉老師還是安靜地躺在ICU重癥監護病房里,依然處于昏迷狀態,但是生命各項體征已經平穩,各項臟器指標也都趨于正常,不過目前還是沒有完全脫離生命危險。   另外,昨天參加會診的5名衛生部派來的專家已經返回北京。現在進入的階段是,需要在嚴密的觀察下,防止她可能會隨時發生的腹部,包括肺部創傷切面等出現隱秘性問題。   記者今天早上在電梯里偶遇了一對父子,兩人是來給“最美女教師”獻花的。父親想過來表達一些心意,也讓上幼兒園的孩子感受一下氣氛,向張老師學習。最后由于進不去ICU,這位父親把花放在門口就默默離開了。   其實從5月8日事故發生之后,已經有太多這種為她祈福,群眾鼓掌送行等感人場面。正如有的網友所言,你把翅膀送給了別人去飛,但是你在我們心中依然是天使。在這里,記者也是希望張老師可以在愛的呼喚中盡快蘇醒,回到她心愛的學生周圍。  
吉林十一选五走势图表电脑版