Tag: copy

วาง ข้อความที่ไม่จัดรูปแบบ ใน word

ปัญหาที่พบวันนี้ มีเพื่อนเปิดแฟ้มเอกสาร 2 แฟ้ม แล้วต้องการคัดลอกข้อมูลจากต่างแฟ้มกัน ซึ่งแฟ้มหนึ่งมีบุคคลที่สามส่งมาให้ เมื่อคัดลอกข้อมูลจากในแฟ้มที่ได้รับมา แล้วนำไปแต่งในเอกสารที่มีอยู่ แล้วจะสั่ง Print หรือแม้แต่การบันทึกเป็น PDF พบปัญหาว่า โปรแกรมปิดตัวเองไปเฉย ๆ จากการตรวจสอบและทดสอบ พบว่า โปรแกรมที่ใช้อยู่เป็น Word 2013 และคาดว่าแฟ้มเอกสารที่ได้รับมาเป็น Word 2019 ทำให้การคัดลอกข้อมูลที่มาพร้อมกับรูปแบบที่ Word 2013 ไม่รู้จัก ทำให้มีปัญหาในการสั่งพิมพ์ แต่ปัญหานี้แก้ไขได้ ด้วยการสั่งวาง ข้อความที่ไม่จัดรูปแบบ (Paste text without formatting) หลังจากนั้นก็จัดรูปแบบใหม่ เพียงเท่านี้ก็แก้ปัญหาได้ แต่มีอีกคำแนะนำหนึ่ง คือ ติดตั้ง Word 2019 หรือ Office 365 ในเครื่องของเรา เพื่อรับการวางข้อความและรูปแบบจาก Word รุ่นเก่าไปยัง Word รุ่นใหม่ที่เรามี ก็จะไม่พบปัญหาความเข้ากันไม่ได้อีก

https://www.thaiall.com/office/word.htm

กรณีวิทยานิพนธ์เรื่อง ทุนทางสังคมและวัฒนธรรม กับการปรับตัวธุรกิจร้านอาหาร ของคนไทยเชื้อสายเวียดนาม ในเขตเทศบาลเมืองนครพนม

โปรแกรมอักขราวิสุทธิ์
โปรแกรมอักขราวิสุทธิ์

ฟังในทีวี
ถามว่า “จะเรียนเพื่อรับวุฒิบัตรการศึกษา หรืออยากได้ความรู้นำไปใช้ในวิชาชีพ”
ถ้าถามนักเรียน นักศึกษาสมัยนี้ ผมว่านะเค้าต้อง
ตอบว่า “อยากได้ความรู้นำไปใช้ในวิชาชีพแน่เลย”
.. ฟันธง
—
จากกรณีที่นักศึกษาปริญญาโทท่านหนึ่ง
ได้ศึกษาวิจัย ค้นคว้า แล้วทำวิทยานิพนธ์
หัวข้อ “ทุนทางสังคมและวัฒนธรรม กับการปรับตัวธุรกิจร้านอาหาร
ของคนไทยเชื้อสายเวียดนาม ในเขตเทศบาลเมืองนครพนม”
แล้วนักศึกษา ม.ขอนแก่น เจ้าของผลงาน
ได้ออกมาร้องเรียนว่า นักศึกษา ม.ศิลปากร คัดลอกผลงาน
หากใช้ โปรแกรมอักขราวิสุทธิ์ ช่วยในการตรวจสอบการคัดลอกก็จะพบได้
http://news.ch7.com/detail/170160/
ปล. คุณเรณู งานวิชาการ แชร์มาให้อ่าน

โปรแกรมอักขราวิสุทธิ์
http://akarawisut.com/

 

แก้ปัญหาลืมรหัสผ่านของ moodle

กรณีลืมรหัสผ่านเข้า moodle
กรณีลืมรหัสผ่านเข้า moodle

วันนี้ มีเพื่อนที่เป็น admin ถามกรณีลืมรหัสผ่านเข้า moodle
พอมีเวลาเพราะวันนี้ไม่ง่วงนอน จึงเข้าไปแกะ table ใน moodle
แล้วผมตอบไปว่า การเปลี่ยนรหัสผ่านของ admin หรือ user ใด
ใน moodle เข้าไปเปลี่ยนได้ไม่ยากครับ สำหรับกรณีลืมรหัสผ่าน
1. ใช้ phpmyadmin เข้าไปดูรหัสผ่านในตาราง mdl_user
2. รหัสผ่านจะเข้ารหัสไว้อ่านไม่ออก แต่คัดลอกไปวางให้คนอื่นได้เลย
เช่น p ก็จะเป็น 83878c91171338902e0fe0fb97a8c47a
3. เลือกรหัสผ่านของคนอื่นที่เข้าระบบได้ ที่เราทราบรหัสผ่านนั้น
แล้วคัดลอกไปวางแทนรหัสผ่านของ admin
ก่อนคัดลอกไปวาง ก็คัดลอกรหัสผ่านของ admin เก็บไว้ก่อน
เท่านี้ก็เข้าระบบด้วย user ของ admin ได้แล้ว
4. ถ้าไม่มีรหัสผ่านที่ทราบเลย ลองของผมก็ได้
รหัสผ่านคือ p เข้ารหัสแล้วก็เป็นตามข้อ 2
5. วิธีนี้ผมทดสอบกับ 1.5 และ 1.9
ซึ่ง user กับ password ไม่ผูกโยงกัน
Password#2555 = 54f24d3ceb6c4c264cd93d8aee2b2d3e
p = 83878c91171338902e0fe0fb97a8c47a

ผมใช้ระบบใน http://www.thaiabc.com

macro to copy 3 sheets to sheet1 & sort

25 ม.ค.55 มีโอกาสเขียน macro ใน excel คัดลอกข้อมูลจาก 3 sheets มาต่อกัน แล้วก็จัดเรียงตามวันที่ ซึ่งอยู่ใน column b และ ยังไม่ได้ปรับ code ให้เป็น function ครับ ทำให้ code ค่อนข้างยาว แต่ผมว่าอ่านง่าย ตรงไปตรงมาดี

Sub copy_sheets()
Dim start As String, tr As Integer
start = “a3” ‘ start row 3
tr = 0
‘=========
ActiveWorkbook.Worksheets(“¡”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
Range(start).CurrentRegion.Copy
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a1”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“¢”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a13”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“¤”).Select
Set tbl = Range(start).CurrentRegion
tbl.Offset(2, 0).Resize(tbl.Rows.Count – 2, tbl.Columns.Count).Copy
tr = tr + tbl.Rows.Count
ActiveWorkbook.Worksheets(“sheet1”).Select
Range(“a23”).Activate
ActiveSheet.Paste
‘=========
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Add Key:=Range(“B3:B” & tr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(“Sheet1”).Sort
.SetRange Range(“A3:L” & tr)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub