Excel Forum

มาดูรายละเอียดเริ่มต้นนะคะ
เริ่มจากไฟล์ EXCEL มีการดึงข้อมูลจาก DATABASE โดยใช้ Query จาก Access ตอนที่รันผ่าน Access ปรับ Timeout = 0 จะรันผ่านค่ะ ถ้าไม่ปรับ จะรันไม่ผ่านค่ะ

พอนำ Query มารันใน EXCEL ใส่ Code นี้ไว้ตอนที่เปิด DATABASE
cn.ConnectionTimeout = 0
cn.CommandTimeout = 0
สามารถใช้ได้ด ...

สวัสดีค่ะ

ปัญหามีอยู่ว่า ขนาดไฟล์ Excel ที่สร้างขึ้นมา หนักเกินไป มี Sheet เดียว ไม่น่าจะหนักถึงขนาด 6-7 MB.ได้ ซึ่งพอ preview ดู ปรากฏว่าเราใช้ Page ไปเยอะมาก เราจะมีการตั้งค่า page อย่างไร ให้พอดีกับที่จะใช้คะ รบกวนผู้รู้ช่วยชี้แนะด้วยค่ะ ขอบคุณล่วงหน้าค่ะ

snasui wrote: การจะเปลียน Link เช่นที่ถามมาได้โดยไม่ต้องลบของเก่าเพิ่มของใหม่คงต้องทำผ่าน VBA ดูตัวอย่างที่นี่ครับ Change ODBC Link

ขอบคุณมากๆค่ะ ^^

สวัสดีค่ะ
อยากทราบว่า เราจะมีวิธีการเปลี่ยน Link ODBC ได้หรือไม่คะ :) :)
คือ Access ที่เราใช้อยู่ ได้ Link ODBC ชื่อ A ไว้ แต่ว่าเราได้ทำการ Remove ODBC A ออกไปจากเครื่อง
พอจะใช้ database นั้น ทำให้ขึ้น Error ว่า ODBC connect to 'A' failed เพราะมันหา ODBC ไม่เจอ จากนั้นเราได้ทำการ Add ODBC ใหม่ แต ...

bank9597 wrote:ให้ทำการเขียนโค๊ดซ่อน navigator panel ครับ รวมถึงซ่อน menu bar ด้วย จากนั้นให้ทำการ Publish เป็น .accde (v.2007 or higher) ทำได้เช่นนี้ user จะไม่สามารถแก้ไขอะไรได้เลย

ขอบคุณมากๆค่ะ

:D จากคำแนะของ Dave Swersky
The easiest way would be to use share permissions. Grant write access to a group and put the users who must write to the database in that group. Put everyone else in a read group. This assumes you have a Windows domain, of course.

และจากการทดลองใช้ของ Liam
Thanks ...

:D ลองศึกษาจาก Link นี้ครับ http://stackoverflow.com/questions/529225/how-to-control-user-rights-to-an-access-database

ขอบคุณมากๆค่ะ

นุ่มได้ลองศึกษาจาก Link แล้วนะคะ มันเป็นภาษาอังกฤษ นุ่มก็ไม่แน่ใจว่าเข้าใจถูกต้องทั้งหมดหรือไม่
แต่จับใจความได้คร่าวๆว่าแต่ละความคิดเห็นก็แตกต่างกันไป บางคนก ...

ขอบคุณมากๆค่ะ

ได้ลองศึกษาจาก Link แล้วนะคะ มันเป็นภาษาอังกฤษ นุ่มก็ไม่แน่ใจว่าเข้าใจถูกต้องทั้งหมดหรือไม่
แต่จับใจความได้คร่าวๆว่าแต่ละความคิดเห็นก็แตกต่างกันไป บางคนก็บอกว่าทำไม่ได้ บางคนก็บอกว่าให้ใช้การตั้งรหัสผ่าน
แล้วจริงๆมันสามารถทำได้หรือไม่คะ

สวัสดีค่ะ :) :)
อยากทราบว่า จะทำอย่างไรให้ user ไม่สามารถแก้ไขข้อมูลใน Access ที่เป็นไฟล์ .mdb ได้คะ
โดยมีเงื่อนไข ประมาณนี้ค่ะ
- ปกติจะใช้ macro เขียน VBA นำข้อมูลจาก Excel เข้า Access โดยใช้พวก query insert , update , delete ฉะนั้นข้อมูลเดิมจะเปลี่ยนแปลงเมื่อมีการ query จาก Excel
- ยังสามารถเพ ...

ขอบคุณทุกๆคนมากๆนะคะ ลองนำมาประยุกต์ใช้กับงานแล้ว เขียนโค๊ดดังนี้ค่ะ



Dim col As Integer
Set a = Workbooks("FC_INPUTx.xls").Worksheets("D")
a.Cells(2, 8) = "=DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1,0))"
amount_date = a.Cells(2, 8) ' amount_date เก็บค่าจำนวนวันในเดือนนี้ ประกาศไว้เป็น public ...

snasui wrote: สามารถใช้ Format มาช่วยได้ เช่น Format เป็น dddd โดย

คลุมเซลล์เป้าหมาย > กดแป้น Ctrl+1 > ที่แถบ Number เลือก Custom > ที่ช่อง Type: คีย์ dddd > OK

ขอบคุณมากๆค่ะ

ขอถามเพิ่มเติมอีกสักนิดค่ะ

เราสามารถตรวจสอบว่าวันที่เท่าไหร่บ้าง ที่เป็นวัน จันทร์ พุธ ศุกร์ ได้หรือไม่คะ

ขอบคุณค่ะ

bank9597 wrote: อีกวิธีครับ

ที่ A2 ของชีทใดๆ คีย์ =IF(COLUMNS($A$1:A$1)>DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1+ROWS($A$2:$A2)-1,1)-1),"",DATE(YEAR(TODAY()),MONTH(TODAY())+ROWS($A$2:$A2)-1,COLUMNS($A$1:A$1))) คัดลอกไปทางขวา แล้วลงล่างพร้อมกัน

จะลองทำดูนะคะ ขอบคุณมากๆค่ะ

snasui wrote: หากเปิดมาถึงก็ให้แสดงวันที่เลยจะต้องใช้ VBA ซึ่งต้องเขียนมาก่อนตามด้านบน แต่หากเป็นการเขียนสูตรเอาไว้เลยก็สามารถคีย์สูตรที่ A1 เป็น

Code: Select all

=IF(COLUMNS($A1:A1)>DAY(EOMONTH(TODAY(),0)),"",DATE(YEAR(TODAY()),MONTH(TODAY()),COLUMNS($A1:A1)))

Enter > Copy ไปด้านขวา

ขอบคุณค่ะ จะลองทำดูนะคะ

snasui wrote: แสดงในชีทไหน เซลล์ไหน ด้วยเงื่อนไขใดครับ

คือชีทหน้านี้เป็นหน้าว่างๆ แสดงในชีทที่ใช้ปัจจุบัน เซลล์ให้เรียง A,B,C,D,... ต่อๆกันไป เงื่อนไข แค่ให้มันแสดงให้ครบตามจำนวนวันในเดือนปัจจุบันค่ะ

แสดงที่ชีทแรกที่ใช้ปัจจุบันเลยค่ะ เซลล์ให้เรียง A,B,C,D,... ต่อๆกันไป เงื่อนไข แค่ให้มันแสดงให้ครบตามจำนวนวันในเดือนปัจจุบันค่ะ

มีวิธีการให้ Excel แสดงวันที่ ของเดือนปัจจุบันทั้งเดือนไหมคะ
เช่นเดือนนี้ เดือนกันยายน ก็จะให้แสดงตั้งแต่วันที่ 1 - 30 กันยายน ลงวันละช่องถัดๆกันไป เป็น 30 ช่อง
ถ้าเดือนไหนมี 31 วัน ก็ต้องมี 31 ช่อง

รบกวนผู้รู้ช่วยแนะนำทีค่ะ ขอบคุณค่ะ

:D เข้าเมนู Tools แล้ว Add Reference ตามภาพเข้ามาก่อนครับ

รันผ่านแล้วค่ะ ขอบคุณมากนะคะ
รันผ่านแล้ว แต่ข้อมูลไม่แสดง เลยคิดว่าน่าจะเป็นเพราะ Debug.Print
เลยแก้ไข โดยใช้ .Cells ตาม code ข้อมูลก็แสดงค่ะ


Sub Macro1()
Dim row As Long
Set a = Workbooks("Read_PG.xls").Worksheets("Sheet1")
Dim ...

:D การทำเช่นนั้นต้องพึ่ง VBA ดูตัวอย่างตาม Link นี้ครับ http://msdn.microsoft.com/en-us/library/aa165325(office.10).aspx


ลองทำดูแล้ว ใช้วิธีที่ 2 OpenSchema
เกิด ERROR ตั้งแต่บรรทัดแรกเลยค่ะ


Sub Macro1()
Dim cnnDB As ADODB.Connection
Dim rstList As ADODB.Recordset
Set cnnDB = New ADODB ...

snasui wrote: การทำเช่นนั้นต้องพึ่ง VBA ดูตัวอย่างตาม Link นี้ครับ http://msdn.microsoft.com/en-us/library ... e.10).aspx

ขอบคุณค่ะ จะลองทำดูนะคะ